Question

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

Answer 1

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 < a[i] then max := a[i]
  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