Цитата:
Сообщение от 37rus
Если что, нужно выполнить в турбо паскале.
|
Если что, пожалуйста. Делов-то...
Код:
Const
N=5;
Var
A:Array[1..N,1..N] of Real;
i,j,Nd:Byte;
Sum:Real;
Begin
For i:=1 to N do
begin
For j:=1 to N do
begin
A[i,j]:=Sqrt(i+j)/(i*i+j*j);
Write(A[i,j]:8:3);
end;
Writeln;
end;
Writeln;
Nd:=0;
Sum:=0;
For i:=2 to N do
For j:=1 to i-1 do
begin
Nd:=Nd+1;
Sum:=Sum+A[i,j];
end;
Writeln('N = ',Nd);
Writeln('Sum = ',Sum:0:3);
Readln
End.