Задание на массивы строк, помогите пожалуйста.Дан массив строк, в каждой строке

Задание на массивы строк, помогите пожалуйста.

Дан массив строк, в каждой строке записано 1 целое число. Отыскать сумму чисел. Написать процедуры ввода и вывода массива, а также функцию/функцию для суммы чисел.

Задать свой вопрос
Диана
Этот массив строк - он в процедурах откуда вводится и куда (с какой целью) выводится?
Анастасия Хромоченкова
Вводится с клавиатуры, потом выводится на экран ещё раз (такое уж задание)
Vitja Burlimov
Т.е. процедура наполняет массив с клавиатуры, а иная его тут же выводит? А строчка содержит изображение целого числа, вероятно, со знаком, и больше ничего? Ребяческие забавы какие-то... это же просто циклы ввода и вывода.
Вера Драго
Вы основное не указали - язык программирования)))
Гузлаева Полина
И опять же, как выяснить, что уже навводились? Сначала указать сколько строк будет либо по первому введенному "мусору" заместо изображения числа?
Артемка Дамрин
Язык - Паскаль) Сначала окончательно указать, сколько строк будет
Владимир Ольгинский
Ну это тогда пустяк
Valetnyj Oleg
Строчки конкретно типа string, не обыденный массив чисел
Геннадий Педе
Светло, что строчки типа стринг, а какие же еще?
Шовыркина Ольга
И в каждой по одному числу. А если больше - всего только в программе замените t.ToInteger на t.ToIntegers
1 ответ

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018

Внимание! Если программа не работает, обновите версию!

procedure Ввод(a: array of string);

begin

 for var i := 0 to a.High do

   a[i] := ReadlnString;

end;


procedure Вывод(a: array of string);

begin

 a.PrintLines

end;


function Сумма(a: array of string): integer;

begin

 Result := a.Select(t -gt; t.ToInteger).Sum;

end;


begin

 var n := ReadlnInteger('Укажите общее количество строк:');

 var a := new string[n];

 Ввод(a);

 Вывод(a);

 Println('Сумма одинакова', Сумма(a))

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт