Question

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

Answer 1

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Min:integer;
Begin
Randomize;
Write('Исходый массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(10000)-5000;
    Write(' ',A[i])
    End;
WriteLn;
Min:=1000;
For i:= 1 to N do
    if (99<Abs(A[i]))and(Abs(A[i])<1000)and(A[i] mod 7 = 0)and(A[i]<Min) then
       Min:=A[i];
if Min = 1000 then WriteLn('В массиве нет трёхзначных элементов, кратных семи')
else WriteLn('Min = ',Min);
End.

Пример:
Исходый массив: 2635 4814 -2784 1015 -462 -50 4069 -4566 578 168 707 660 -731
Min = -462

Answer 2

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.