Ответы на вопрос:
Var a: array [1..30] of integer; i, max: integer; begin for i : = 1 to 30 do read (a[i]); max : = -1001; for i : = 1 to 30 do if (a[i]< 0) and (a[i]> max) and (a[i] mod 10 < > 3) then max : = a[i]; writeln (max); end.
Популярно: Информатика
-
миёк215.01.2022 04:43
-
vovan888112.11.2020 12:26
-
малыш11521.05.2023 22:23
-
Наоя21.02.2023 03:36
-
UNNAMED322821.07.2022 01:28
-
emmadetes24.07.2020 17:15
-
DrYgAn899815.02.2020 18:47
-
NastyaVoitelnicha30.05.2022 10:01
-
Evgeniy1111111111126.07.2022 19:17
-
12312332432222127.05.2023 09:26