23 lines
370 B
ObjectPascal
23 lines
370 B
ObjectPascal
const
|
|
N = 4;
|
|
|
|
var
|
|
a: array [1..N, 1..N] of integer;
|
|
i, j: integer;
|
|
d: real;
|
|
|
|
begin
|
|
Randomize();
|
|
for i := 1 to N do begin for j := 1 to N do begin a[i][j] := Random(5);write(a[i][j], ' '); end;writeln(); end;
|
|
writeln();
|
|
d:=0;
|
|
for i := 1 to N do
|
|
begin
|
|
for j := 1 to N do
|
|
begin
|
|
d:=d+a[i][j];
|
|
end;
|
|
end;
|
|
d:=d/N;
|
|
writeln(d);
|
|
end. |