Дан целочисленный массив из 20 элементов. элементы массива могут принимать целые значения от 0 до 1000 включительно. опишите на паскале алгоритм, позволяющий найти и вывести максимальное значение среди трёхзначных элементов массива, не делящихся на 9. если в исходном массиве нет элемента, значение которого является трёхзначным числом и при этом не кратно 9, то выведите сообщение «не найдено». исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const n = 20; var a: array [1..n] of integer; i, j, max: integer; begin for i : = 1 to n do readln(a[i]); end.
246
464
Ответы на вопрос:
Program max; const n = 20; var a: array [1..n] of integer; i, j, max: integer; begin for i : = 1 to n do readln(a[i]); max : = 0; j : = 0; for i : = 1 to n do if (a[i] div 100 > 0) and (a[i] div 1000 = 0) and (a[i] mod 9 < > 0) then {число подходит} if a[i] > max then begin max : = a[i]; j : = 1; {для отслеживания наличия хотя бы одного числа} end; if j = 1 then writeln('ответ: ', max) else writeln('не найдено'); end.
Популярно: Информатика
-
Ludacris6621.06.2023 11:02
-
GELDAGAN9517.07.2021 13:00
-
Amina080711.04.2021 15:55
-
Желейка722.12.2021 12:34
-
olegstar74p0a99420.09.2022 19:07
-
Cesar12321328.12.2021 18:33
-
ridvanmemetov4115.05.2021 23:01
-
Vitalikebati11.05.2022 11:12
-
MagistooorNaine17.10.2021 16:48
-
danya16617.08.2021 03:46