Напишите прогу в паскале Вводится последовательно 15 чисел найти самое большое...

Question

Напишите прогу в паскале
Вводится последовательно 15 чисел найти самое большое положительно кратное 3

Answer 1

Var  i, a, b, max: integer;
begin  max := -maxint; b := 0;  for i := 1 to 15 do   begin    Write('Введите число: '); Readln(a);    if (a mod 3 = 0)      then if (a > max) then max := a;  end;  Write('Самое большое число кратное 3 = ', max);end.Если нигде не ошибся, то должно работать именно так