Напишите программу в паскале, которая в последовательности естественных чисел определяет наибольшее
Напишите программку в паскале, которая в последовательности естественных чисел определяет максимальное число, кратное 4. Программа получает на вход количество чисел в последовательности, а потом сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введенные числа не превосходят 30 000. Программка обязана вывести одно число наибольшее число, кратное 4.
Задать свой вопрос
var x: array[1..1000] of integer;
x1: array[1..1000] of integer;
n, i, j: integer;
begin
writeln(Введите количество частей в последовательности);
readln(n);
if n gt; 1000 then writeln(Количество частей больше 1000!) else
begin
for i := 1 to n do x[i] = random(30000);
for i := 1 to n do if x[i] div 4 = 0 then begin
j := j + 1;
x1[i] := x[i];
end;
for i:= 1 to j do writeln(x1[i]:4);
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.