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

Question

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

Comments

Этот массив строк - он в процедурах откуда вводится и куда (с какой целью) выводится?

---

Вводится с клавиатуры, затем выводится на экран ещё раз (такое уж задание)

---

Т.е. процедура заполняет массив с клавиатуры, а другая его тут же выводит? А строка содержит изображение целого числа, возможно, со знаком, и больше ничего? Детские игры какие-то... это же просто циклы ввода и вывода.

---

Вы главное не указали - язык программирования)))

---

И опять же, как узнать, что уже навводились? Вначале указать сколько строк будет или по первому введенному "мусору" вместо изображения числа?

---

Язык - Паскаль) Вначале конечно указать, сколько строк будет

---

Ну это тогда пустяк

---

Строки именно типа string, не обычный массив чисел

---

Ясно, что строки типа стринг, а какие же еще?

---

И в каждой по одному числу. А если больше - всего лишь в программе замените t.ToInteger на t.ToIntegers

Answer 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 -> t.ToInteger).Sum;

end;

begin

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

 var a := new string[n];

 Ввод(a);

 Вывод(a);

 Println('Сумма равна', Сумма(a))

end.