Демьянов
4 год назад
Напишите программу, которая в последовательности натуральных чисел определяет наибольшее нечётное трехзначное число. Программа на вход получает количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число – наибольшее нечётное трехзначное число последовательностиНапишите пожалуйста программу в Паскале с использованием массивов.
ОТВЕТЫ
Frank Gesche
Oct 24, 2020
Program n1;
var i,a,max,n: integer;
begin
max:=0;
readln(n);
if n<1000 then for i:=1 to n do
begin
readln(a);
if ( a mod 2=0) and (max<a) then max:=a;
end;
writeln(max);
end.
576
Смежные вопросы:
