Регистрация
алек36
19.05.2022 17:39
Информатика
Есть ответ 👍

Что это за код или файл?

219
323
Посмотреть ответы 1

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

Swerri
Swerri
4,6(89 оценок)
Var a: array[1..8]of integer;       i,k,s: integer; begin   for i: =1  to 8 do   begin     a[i]: =random(10)+1;     write(a[i],' ');     if a[i]  mod 2=0 then k: =k+1                           else s: =s+a[i];   end;   writeln;   writeln('kol-vo chet elem: ',k,' summa nechet: ',s); end.

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