Ответы на вопрос:
//pascal var a: array [1..10] of byte; i, min, max: byte; begin randomize; min : = 101; max : = 0; for i : = 1 to 10 do begin a[i] : = random(101); if ((a[i] < min) and (a[i] mod 2 < > 0)) then min : = a[i]; if ((a[i] > max) and (a[i] mod 2 = 0)) then max : = a[i]; write(a[i], ' '); end; writeln; writeln('максимальный четный = ', max); writeln('минимальный нечетный = ', min); readln; end.
Популярно: Информатика
-
жанна1988216.01.2023 17:22
-
Bakos11117.08.2021 07:12
-
sany83129.08.2020 17:18
-
maksimkasuslov124.06.2020 08:27
-
Andreeva55520.11.2020 18:00
-
Motia2k1715.12.2021 07:28
-
AlinaGazizullina200818.05.2021 04:07
-
польска16.01.2021 11:00
-
kristinarepina11.12.2020 09:26
-
Daria231601.01.2022 01:57