решить задачу по информатике на языке программирования Pascal.

203

266

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

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

Надюфка1997

Информатика

4,5(69 оценок)

Var a: array [1..10] of integer; i,k1,k2: integer; begin for i: = 1 to 10 do a[i]: = random(20,100); writeln(a); for i: =1 to 10 do if a[i] mod 2 = 0 then k1: =k1+1 else k2: =k2+1; writeln('чётных элементов: ',k1); writeln('нечётных элементов: ',k2) end.