Поиск максимального (минимального) значения в последовательности чисел

Поиск максимального (минимального) значения в последовательности чисел
№1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 8.
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.
Программа должна вывести одно число: максимальное число, кратное 8.
Пример работы программы:
Входные данные Выходные данные
3162412 24
Решение на языке Паскаль
program Z_max1;
var i, n, x, max: integer;
beginreadln (n);
max:=0;
for i:=1 to n do
beginreadln (x);
if (x mod 8 =0) and (x > max) then max:=x;
end;
writeln (max);
end.
№2. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число и его порядковый номер, оканчивающееся на 2.
Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 2.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – максимальное число, оканчивающееся на 2.
Пример работы программы:
Входные данные Выходные данные
4322612 22
2
Решение на языке Паскаль
program Z_max2;
var i, n, x, k, max: integer;
beginreadln (n);
max:=0;
for i:=1 to n do
beginreadln (x);
if (x mod 10 =2) and (x > max) then
begin max:=x;
k:=i;
end;
end;
writeln (max);
writeln (k);
end.
№3. Напишите программу, которая в последовательности натуральных чисел определяет второй по величине наибольший элемент. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.
Программа должна вывести одно число: максимальное число, кратное 8.
Пример работы программы:
Входные данные Выходные данные
3162412 16
Решение на языке Паскаль
program Z_max3;
var i, n, x, max1, max2: integer;
beginreadln (n);
max1:=0; max2:=0;
for i:=1 to n do
beginreadln (x);
if x > max1 then begin max2:=max1; max1:=x; end
else if x > max2 then max2:= x;
end;
writeln (max2);
end.
№1. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 5. Программа получает на вход числа, количество чисел в последовательности неизвестно, окончанием ввода служит 0. В последовательности всегда имеется число, кратное 5.
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.
Программа должна вывести одно число: максимальное число, кратное 8.
Пример работы программы:
Входные данные Выходные данные
3152512 15
Решение на языке Паскаль
program Z_min4;
var i, n, x, min: integer;
beginreadln (x);
min:=30001;
while x<>0 do
beginif (x mod 5 =0) and (x < min) then min:=x;
readln (x);
end;
writeln (min);
end.