с информатикой(Паскаль) «В одномерном массиве A из n элементов найти максимальное значение max среди элементов, меньших 5, и
минимальное значение среди всех элементов min.»

const n = 15;

var i, max, min :integer;

   A: array[1..n] of integer;

begin

 max := 0;

 min := 99999;

 write('Массив A: ');

 for i := 1 to n do

 begin

   A[i] := random(1, 10);

   write(A[i], ' ');

   if A[i] < min then min := A[i];

   if (A[i] > max) and (A[i] < 5) then max := A[i];

 end;

 writeln();

 writeln('Максимальный элемент, среди элементов < 5: ', max);

 writeln('Минимальный элемент: ', min);

end.

Объяснение: