Помогите пожалуйста решить программу !!!!!!!!!! ** Pascal ABC. Задача: Найти количество...

Question

Помогите пожалуйста решить программу !!!!!!!!!! на Pascal ABC.
Задача:
Найти количество четных чисел из 20 целых случайных чисел из любого интервала.

Comments

числа забивать фунцией random? или в ручную с клавиатуры ?

---

random

---

ну диапазон интервала и сам задать сможешь

Answer 1

Var i,a,b:integer;
Begin
  Randomize();
  for i:=1 to 20 do
    begin
      a:=Random(0,50);
      if (a mod 2 = 0) then b:=b+1;
    end;
 Writeln(b)
End.

Answer 2

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.

Comments

можно было ещ через функцию odd но я не помню как её прописывать

---

obb*

---

odd(a)

---

c mod 2 наглядней просто

---

программа идет с вводом с клавиатуры

---

мне надо с random и randomize что бы она сама числа придумывла