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

Question

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

Answer 1

Varn,a,i,max:integer;beginwriteln('vvedite kol-vo chisel N');readln(n);max:=0;for i:=1 to  n dobeginwriteln('vvedite ',i,' chislo');readln(a);if a < 30000 thenif (a mod 3 = 0) and (a mod 10 = 6)thenif max < a thenmax:=a;end;writeln('max=',max);end.

Comments

var
n,a,i,max:integer;
begin
writeln('vvedite kol-vo chisel N');
readln(n);
max:=0;
for i:=1 to n do
begin
writeln('vvedite ',i,' chislo');
readln(a);
if a < 30000 then
if (a mod 3 = 0) and (a mod 10 = 6)then
if max < a then
max:=a;
end;
writeln('max=',max);
end.

---

Благодарю!