Question

Вводится последовательность неотрицательных целых чисел в количестве 5 штук,нужно найти кол-во четных и не четных цифр в ней,а также вывести максимальное не четное и минимальное нечетное число,если таких чиcел нет-сообщите это пользователю.
Паскаль.

Answer 1

var
i, a, even, odd, min, max : integer;
begin
min := 30000;
max := -1;
for i:= 1 to 5 do
begin
read(a);
if (a mod 2 = 0) then
even:= even + 1
else
begin
odd:= odd + 1;
if (a > max) max := a;
if (a < min) min := a;
end;
end;
writeln('четных ', even);
writeln('нечетных', odd);
if (odd = 0)then
writeln('нечетных чисел нет');
else
writeln('min =' min, ' max = ', max);
end.


что то такое, скорее всего есть синтаксические ошибки, т.к. пишу с телефона, надеюсь смысл поняли и сможете сами написать