Задание на массивы строк, помогите пожалуйста.Дан массив строк, в каждой строке
Задание на массивы строк, помогите пожалуйста.
Дан массив строк, в каждой строке записано 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.