Дан одномерный массив из 10 элементов. Подсчитать количество положительных элементов...

Question

Дан одномерный массив из 10 элементов. Подсчитать количество положительных элементов массива. Pascal

Answer 1

Const
  n = 10;
var
  x: array[1..n] of integer;
  i, k: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0;
  for i := 1 to n do
  begin
    x[i] := Random(51)-25;
    Write(x[i]:4);
    if x[i]>0 then Inc(k)
  end;
  Writeln;
  Writeln('Количество положительных элементов массива равно ',k);
end.

Тестовое решение:
Элементы массива
   1  13  -1   0 -25   7 -15 -21  14   9
Количество положительных элементов массива равно 5