Регистрация
Анют2006
07.05.2023 21:20
Информатика
Есть ответ 👍

можете это решить очень подробно?с ответом что бы оформление тоже было.слово которое не видно "найдите"дай бог вам здоровья)

154
218
Посмотреть ответы 1

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

Эвелина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.

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