var a,b:integer;
x:real;
begin
Randomize;
a:= random(-20,20);
if(a mod 2 = 0) then
writeln(a, ' - Чётное')
else
writeln(a, ' - Нечётное');
end.
Объяснение:
функция рандомайз необходима для получения новых значений, без неё как такового рандома не получится
остальное всё просто, на полученое число приходится остаток от деления, если его нет - число чётное
var a,b:integer;
x:real;
begin
Randomize;
a:= random(-20,20);
if(a mod 2 = 0) then
writeln(a, ' - Чётное')
else
writeln(a, ' - Нечётное');
end.
Объяснение:
функция рандомайз необходима для получения новых значений, без неё как такового рандома не получится
остальное всё просто, на полученое число приходится остаток от деления, если его нет - число чётное