Предмет: Информатика, автор: mary1003

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

Ответы

Автор ответа: fikort
0
var
a:array[1..1000] of integer;
i,q,n:integer;
begin
q:=0;
writeln('Кол-во чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите число №',i);
readln(a[i]);
if a[i] mod 10 = 8 then
if a[i]>q then
q:=a[i];
end;
writeln(q);
end.
Автор ответа: mary1003
0
Каким изначально должно быть q?
Автор ответа: fikort
0
q=0
Похожие вопросы
Предмет: Английский язык, автор: SpawNis