| Код |
program Project2;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
const
N = 5;
M = 6;
K = 3;
var
MATRIX: ARRAY [1 .. N, 1 .. M] OF integer;
i, j, s1, s2: integer;
avg1, avg2: real;
begin
s1 := 0;
s2 := 0;
FOR i := 1 TO N DO
begin
FOR j := 1 TO M DO
begin
MATRIX[i, j] := Random(100);
Write(MATRIX[i, j]:3, ' ');
end;
writeln;
end;
FOR i := 1 TO N DO
begin
FOR j := 1 TO K DO
begin
s1 := s1 + MATRIX[i, j];
s2 := s2 + MATRIX[i, K + j];
end;
end;
avg1 := s1 / (K * N);
avg2 := s2 / (K * N);
writeln;
writeln('avg1 - avg2 = ', (avg1 - avg2):3:2);
Readln;
end.
|
|