Регистрация
Nikidiy
05.06.2023 14:40
Информатика
Есть ответ 👍

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

141
422
Посмотреть ответы 2

Ответы на вопрос:

Эвелина2019
Эвелина2019
4,5(40 оценок)
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.

ksusha25night
ksusha25night
4,5(76 оценок)
Компьютер - искусственный интеллект

Популярно: Информатика