Помогите пожалуйста решить программу !!!!!!!!!! на Pascal ABC.
Задача:
Найти количество четных чисел из 20 целых случайных чисел из любого интервала.
Задача:
Найти количество четных чисел из 20 целых случайных чисел из любого интервала.
More Questions From This User See All
Answers & Comments
Verified answer
Var a,k,i:integer;begin
randomize;
k:=0;
for i:=1 to 20 do begin
a:=-200+random(401);
write(a, ' ');
if a mod 2 = 0 then k:=k+1;
end;
writeln;
writeln(k);
end.