Salam
[code]
program prog;
var Z: array[1..3,1..3] of real;
i,j:integer;
orta1,orta2,orta3:real;
orta: array[1..3] of real;
say: array[1..3] of integer;
begin
orta1:=0;
orta2:=0;
orta3:=0;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
readln(Z[i,j]);
end;
end;
for i:=1 to 3 do begin
say[i]:=0;
for j:=1 to 3 do begin
if(Z[1,i]>0) then begin
say[i]:=say[i]+1;
orta[i]:=(orta[i]+Z[i,j]);
end;
end;
end;
for i:=1 to 3 do begin
orta[i]:=orta[i]/say[i];
writeln(orta[i]);
end;
readln;
end.
[/code]