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

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.

Comments

хочеш числа увидеть?

---

ну и?

---

обнови страницу я изменил решение при нажатии на F9 у тебя сначала выводится случайные числа а потом кол-ыо чётный и не чётный чисел

---

вводи сначала число чисел которые тебе хочется

---

ок, попробую разобраться! спасибо тебе!

---

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

---

понятно?

---

да

---

благодарю!!

---

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