Задачка по информатике 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.
Язык Паскаль
Задачка по информатике 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.
Язык Паскаль
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.
Язык Паскаль
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
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.