25 , составить программу (ту что начинается с алг, потом нач и тд) чтобы на экран выводилось сообщение - id519123820230301 от Рад1111111 01.03.2023 00:17

Question

Информатика: 25 , составить программу (ту что начинается с алг, потом нач и тд) чтобы на экран выводилось сообщение четное или нечетное число а введенное с клавиатуры

Рад1111111 · Accepted Answer

Const
n = 50;

var
a: array[1..n] of integer;
i, min: integer;

begin
Randomize;
Writeln('Исходный массив');
min:=32767;
for i := 1 to n do
begin
    a[i] := Random(99)+1;
    Write(a[i]:3);
    if ((a[i] mod 2)<>0) and (min>a[i]) then min:=a[i]
end;
Writeln;
Writeln('Минимальный нечетный элемент равен ',min)
end.

Тестовое решение:
Исходный массив
24 19 87 17 11 98 74 11 57 42 9 23 3 90 62 61 53 55 63 93 22 50 82 97 26 39 43 26 46 52 13 94 26 98 87 95 43 69 24 41 56 78 22 45 53 45 59 57 3 64
Минимальный нечетный элемент равен 3

25 , составить программу (ту что начинается с алг, потом нач и тд) чтобы на экран выводилось сообщение четное или нечетное число а введенное с клавиатуры

MOGZ ответил