Регистрация
999Roman999999991
11.12.2020 18:46
Информатика
Есть ответ 👍

с реализацией программы на PASCAL ! Заранее Вас сильно благодарю !

196
304
Посмотреть ответы 1

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

kolika2016
kolika2016
4,6(2 оценок)

pascalabc.net

begin

  var n : = readinteger('n =');

  var a : = arrrandom(n, -35, 35);

  a.println;

  var s : = 0;

  for var i : = 0 to a.high do

  begin

    if i.isodd then

      s += a[i];

    if a[i] mod 5 = 0 then

      print(a[i])

  end;

  writeln;

  println('сумма', s)

end.

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