Регистрация
zentex
25.03.2021 23:00
Информатика
Есть ответ 👍

Запишіть структуру циклу з передумовою та поясніть принцип дії

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

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

nadyukov
nadyukov
4,6(5 оценок)
Var     s, i: integer;     a: array[1..10]of integer; begin for i: =1 to 10 do   begin   a[i]: =random(10);   write(a[i],' ');   if a[i] mod 2=0 then s: =s+a[i];   end; writeln; writeln('сумма четных: ',s) end.

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