Question

составить программу вывода N случайных целых чисел диапазона от 0 до 50. определить сколько среди них четных, а сколько нечетных

Answer 1

program gt;
var a,l,k,n,i:integer;
begin
read(N);
randomize;
k:=0;
l:=0;
for i:=1 to n do
begin
a:=random(50);
if(a mod 2=0)then k:=k+1 else l:=l+1;
write(a,' ');
end;
writeln;
writeln('четные=',k);
writeln('не четные=',l);
end.

Answer 2

тебе надо сначала вводит любое число(не больше 1000) а потом компьютер выводит такое же кол-во случайно выбранных чисел на отрезке от 0 до 50 а потом выводит кол-во чётных и не чётных чисел среди выведенных чисел

Answer 3

да

Answer 4

благодарю!!

Answer 5

ну тогда удачи!