Паскаль важно)напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 4. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число – максимальное число, кратное 4. пример работы программы:
8AnnaMur8
2
15.04.2019 10:35
4
Другие вопросы по теме Информатика
muzaka
18.09.2021 14:50
superfrap320
18.09.2021 14:52
Pmogi111
06.04.2020 23:46
freeSkoM
06.04.2020 23:46
vika27072
06.04.2020 23:45
kitsrarr
06.04.2020 23:41
RedomR
06.04.2020 23:41
Fantik14rus
06.04.2020 23:36
dasausakova526
06.04.2020 23:35
Популярные вопросы
- Прочитай. Подчеркни буквы, которые указывают на мягкость согласных...
3 - Прочитайте пословицы. Объясните их смысл. Незнайка лежит, а...
1 - Банк предлагает следующие условия: полугодовое начисление процентов...
3 - Рассмотри грушу на рисунке и опиши её. Используй слова, отвечающие...
2 - Измени слова так, чтобы в них появился звук [й ]. Запиши получившиеся...
2 - По образцу измени слова так, чтобы в них появилась буква й....
1 - Спиши сочетания слов, вставляя пропущенные буквы. Спуститься...
3 - Обратите внимание на произношение слов, которые пришли к нам...
3 - Продолжи волшебные превращения слов. Пар - парь, спор...
2 - Какую букву на конце слов нечаянно стёр Ваня? По стране из края...
1
Объяснение:
var A:array [0..30000] of longint;
n,i,max:integer;
begin
read (n);
for i:=1 to n do begin
A[i]:=random (30000);
write (A[i],' ');
end;
max:=A[1];
for i:=1 to n do begin
if (A[i]>max) and (A[i] mod 4=0) then
max:=A[i];
end;
writeln ('Максимальное число кратное 4= ', max);
end.
Если тебе нужно вводить числа с клавиатуры замени строчку
A[i]:=random (30000); на read (A[i]);