Контрольное задание №15-3 / 15-3 / zadanie_3

program Zadanie_3;
var
i,j: byte;
b: real;
a: array [1..10,1..15] of real;
begin
randomize;
writeln ('‡ ¤ ­­л© ¤ўг¬Ґа­л© ¬ ббЁў 10е15:');
for i:=1 to 10 do
begin
for j:=1 to 15 do
begin
a[i,j]:=random(99);
write(a[i,j]:3:1,' ');
b:=b+a[i,j];
end;
writeln;
b:=b/15;
for j:=1 to 15 do
a[i,j]:=a[i,j]/b;
end;
writeln;
writeln ('Џ®«г祭­л© ¤ўг¬Ґа­л© ¬ ббЁў 10е15:');
for i:=1 to 10 do
begin
for j:=1 to 15 do write(a[i,j]:4:2,' ');
writeln;
end;
readln();
end.