Регистрация
CorjikPlay
31.03.2021 23:42
Информатика
Есть ответ 👍

Запусти паскаль виде данную программу получи результат если N=2 (в окошко для ответа запиши только числовое значение)

158
227
Посмотреть ответы 1

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

Misha45456
Misha45456
4,7(12 оценок)
Var a: array[1..1000] of integer; n, i, amount, sum: integer; begin       read(n);       amount : = 0;       sum : = 0;       for i : = 1 to n do       begin           read(a[i]);           if a[i] mod 3 = 0           then           begin                 sum : = sum + a[i];                 amount : = amount + 1;           end;       end;       writeln(amount, ' ', sum); end.

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