Контрольное задание №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.