Напишите программу на Паскаль, которая в последовательности натуральных чисел определяет максимальное отрицательное число, оканчивающееся на 3.

Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введенные числа по абсолютной величине не превышают 30 000.

Программа должна вывести одно число-максимальное отрицательное число, оканчивающееся на 3.

Question

Информатика

Изида

18 ноября, 12:35

Напишите программу на Паскаль, которая в последовательности натуральных чисел определяет максимальное отрицательное число, оканчивающееся на 3.

Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введенные числа по абсолютной величине не превышают 30 000.

Программа должна вывести одно число-максимальное отрицательное число, оканчивающееся на 3.

+5

Ответы (1)

Знаете ответ?

Людмилыч · Answer 1

Var n, a, max, i:integer;

begin

write ('n = ') ;

readln (n) ;

max:=-30000;

writeln ('Вводите числа:') ;

for i:=1 to n do

begin

readln (a) ;

if (abs (a) mod 10=3) and (amax) then max:=a;

end;

if max=-30000 then writeln ('Нет чисел, оканчивающихся на 3')

else writeln ('max = ', max) ;

end.

Пример:

n = 5

Вводите числа:

5

618

-703

103

-243

-815max = - 243