Задачка по информатике 2)Дан целочисленный массив из 20 элементов, все элементы которого – целые числа в интервале от -1000 до 1000. Опишите алгоритм, который находит максимальное значение из всех четных элементов массива, которые делятся на 6. Гарантируется, что хотя бы один такой элемент существует. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них
const N=10;
var a: array [1..N] of integer;
i, j, max: integer;
begin
for i:=1 to N do readln(a[i]);
...
end.
Язык Паскаль

26 Мая 2021 в 19:50
184 +1
0
Ответы
1
const N=20;
var a: array [1..N] of integer;
i, max: integer;
begin
for i:=1 to N do readln(a[i]);
max := -1001;
for i:=1 to N do begin
if (a[i] mod 6 = 0) and (a[i] mod 2 = 0) and (a[i] > max) then
max := a[i];
end;
writeln(max);
end.
17 Апр 2024 в 18:08
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир