const
n = 10;
var
a: array [1 .. n, 1 .. n] of real;
i, j: integer;
p: real;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(40);
write(' ', a[i, j]:3);
end;
writeln();
end;
writeln('--------');
p := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := sin(i + j / 2);
write(a[i, j]:5:1);
if a[i, j] > 0 then
p := p + 1;
end;
writeln;
end;
writeln('Положительных=', p);
end.