Предмет: Информатика,
автор: mary1003
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 8.
Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 8. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 8.
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
Каким изначально должно быть q?
Автор ответа:
0
q=0
Похожие вопросы
Предмет: Английский язык,
автор: SpawNis
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: kamilla457777788
Предмет: Биология,
автор: IrinaFox97