066536 / 374a / Текстовый документ

const n=4;
var i,j,k: integer;
a:array[1..n,1..n] of real;
begin
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],' ');
end;
writeln;
end;

for i:=1 to n do
for j:=1 to n do
if(a[i][j]>0) then
k:=k+1;

writeln('polozhitelnyh elementov = ',k);
readln;
end.