Дан массив натуральных чисел. Заполнить с помощью датчика случайных чисел. Подсчитать количество четных чисел от 1 до 10.
Var
a: array[1..1000] of integer;
i: integer;
chet: integer;
nechet: integer;
begin
i:=1;
Randomize;
while (i<=1000) do
begin
a[i] := random(10);
if( a[i] mod 2 = 0) then
chet:=chet+1
else nechet:= nechet + 1;
i := i + 1;
end;
writeln(четных чисел: ,chet, ,Нечетных чисел: ,nechet)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
