Question

Напишите программу на Паскаль,которая в последовательности натуральных чисел определяет максимальное отрицательное число,оканчивающееся на 3.
Программа получает на вход количество чисел в последовательности,а затем сами числа.
Количество чисел не превышает 1000. Введенные числа по абсолютной величине не превышают 30 000.
Программа должна вывести одно число-максимальное отрицательное число,оканчивающееся на 3.

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(a<0)and(a>max) then max:=a;
 end;
if max=-30000 then writeln('Нет чисел, оканчивающихся на 3')
else writeln('max = ',max);
end.

Пример:
n = 5
Вводите числа:
5
618
-703
103
-243
-815max = -243