Question

Составьте программу, которая заполняет массив [1..10] случайными целыми числами в диапазоне от 0 до 10 и находит количество всех четных элементов массива

Answer 1

Var s,i,n : integer;   
z: array [1..10] of integer;
Begin
Write('n=');
Read(n);
for i:= 1 to n do
begin
z[i]:= random(10);
Writeln(z[i]);
end;
s:=0;
for i:= 1 to n do
if z[i] mod 10=0 then s:=s+1;
Write('symma=', s);
end.

Answer 2

точно. прост решается оценка за четверть