Выполнить в paskal N=12 Ввести число К Определить количество элементов массива, значения которых больше K. ... Все элементы массива увеличить в 3 раза. Массив вывести. ... Определить максимальное значение сред положительных элементов массива.

Const
  n = 12;

var
  a: array[1..n] of integer;
  i, k, p, max: integer;

begin
  Randomize;
  Write(Введите число К: );
  Readln(k);
  Write(Элементы массива: );
  p := 0;
  for i := 1 to n do
  begin
    a[i] := Random(101)-50;
    Write(a[i]:5);
    if a[i] > k then p := p + 1;
  end;
  Writeln(#13#10, Количество элементов, больших , k, =, p);
  max := -32768;
  for i := 1 to n do
  begin
    a[i] := 3 * a[i];
    if max   end;
  if max > 0 then Writeln(Максимальный элемент массива равен , max)
  else Writeln(В массиве нет положительных элементов)
end.

Тестовое решение:
Введите число К: 25
Элементы массива:   -10   43   -6    8   -4   39   26  -30  -33  -10  -34   -4
Количество элементов, больших 25=3
Максимальный элемент массива равен 129