Question

Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести минимальное значение среди трёхзначных элементов массива, делящихся на 7.(паскаль)

Answer 1

var a, b, c: Integer;
begin
readln(a, b, c);
if (a mod 7 = 0) and (b mod 7 = 0) and (c mod 7 = 0) then
 begin
  if (a < b) and (a < c) then writeln('Min = ', a)
  else if (b < c) then writeln('Min = ', b)
  else writeln('Min = ', c);
 end;
end.