Напишите программу на Паскаль,которая в последовательности натуральных чисел определяет максимальное отрицательное число,оканчивающееся на 3.
Программа получает на вход количество чисел в последовательности,а затем сами числа.
Количество чисел не превышает 1000. Введенные числа по абсолютной величине не превышают 30 000.
Программа должна вывести одно число-максимальное отрицательное число,оканчивающееся на 3.
Программа получает на вход количество чисел в последовательности,а затем сами числа.
Количество чисел не превышает 1000. Введенные числа по абсолютной величине не превышают 30 000.
Программа должна вывести одно число-максимальное отрицательное число,оканчивающееся на 3.
More Questions From This User See All
Answers & Comments
Verified answer
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