Var X: array[1..6,1..6] of real;
i, j, rez: integer;
begin
rez := 0;
for i := 1 to 6 do
for j := 1 to 6 do begin
X[i,j] := random(11)-5;
if (j mod 6 = 0) then writeln(X[i,j]:4)
else write(X[i,j]:4);
if X[i,j] > 0 then inc(rez);
end;
writeln();
writeln('Количество положительных элементов: ', rez);
end.