Question

Получить 10 случайных двузначных чисел и определить: четное число или нет.
(Паскаль)

Answer 1

Program Project;
var
  I, N: Integer;
begin
  for I:=0 to 9 do begin
    ReadLn(N);

    if (N Mod 2 = 0) then
      WriteLn('чётное')
    else
      WriteLn('нечётное')
  end;
end.

Answer 2

как получить 10 случайных чисел? там через random нужно же..

Answer 3

Вместо ReadLn(N) пишешь N:=Random(300)