Регистрация
nastyakolomiec1
24.11.2021 14:32
Информатика
Есть ответ 👍

Сформулировать массив из n случайных чисел от 0 до 10. Найти произведение чисел кратных 4.

250
493
Посмотреть ответы 1

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

АртёмПлотников
АртёмПлотников
4,4(68 оценок)
Код (pascal)

var

  a: array[1..10] of integer;

  s, i: integer;

begin

  s : = 0;

  for i : = 1 to 10 do

    read(a[i]);

  for i : = 1 to 10 do

    if (a[i] > = -10) and (a[i] < = 10) then s : = s + a[i];

  writeln(s);

end.

файл с решением прикреплён (1).

также прикреплён файл с решением без использования массивов (2).

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