Ребят, срочно нужно написать программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 7. Программа должна вывести одно число, кратное 7.
Answers & Comments
ignatmerkury
Мне кажется тебе с таким заданием надо идти на сайт фриланса и искать там программиста
2 votes Thanks 1
sfaleev197gmailcom
Var i, t, max, n: integer; begin readln(n); max := 0; for i := 1 to n do begin readln(t); if (t mod 7 = 0) and (t > max) then max := t; end; writeln(max); end.
Answers & Comments
i, t, max, n: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(t);
if (t mod 7 = 0) and (t > max) then
max := t;
end;
writeln(max);
end.