паскаль прошу очень главно)Напишите программу, которая в последовательности натуральных чисел
Паскаль прошу очень главно)Напишите программку, которая в последовательности натуральных чисел определяет наибольшее число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превосходят 30 000. Программка должна вывести одно число максимальное число, кратное 4. Пример работы программки:
Задать свой вопрос
Ответ:
Разъяснение:
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]gt;max) and (A[i] mod 4=0) then
max:=A[i];
end;
writeln ('Наибольшее число кратное 4= ', max);
end.
Если для тебя необходимо вводить числа с клавиатуры поменяй строку
A[i]:=random (30000); на read (A[i]);
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.