Сделать блок схему.
program pr1;
var a: array [1..100, 1..100] of integer;
i, n, j : integer;
gsum, psum, srgeom: real;
begin
psum : = 0;
gsum : =0;
srgeom: =0;
writeln('введите размер матрицы ');
readln(n);
for i : = 1 to n do
for j : = 1 to n do
a[i, j] : = random(21);
for i : = 1 to n do
begin
for j : = 1 to n do
write(a[i, j]: 3);
writeln;
end;
for i : = 1 to n do
psum : = psum + a[i, n - i + 1];
for i : = 1 to n do
gsum : = gsum + a[i,i];
srgeom: =sqrt(psum*gsum);
writeln('среднее : ',srgeom);
end.
