Question

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

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

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.