Дана действительная матрица размера m*n. Определить числа равные значениям средних арифметических элементов строк.

Question

Информатика

Риммушка

20 октября, 10:46

Дана действительная матрица размера m*n. Определить числа равные значениям средних арифметических элементов строк.

+3

Ответы (1)

Знаешь ответ?

Моника · Answer 1

Const

M = 3;

N = 4;

Var

A:array[1 ... M, 1 ... N] of real;

i, j:integer;

S:real;

Begin

Randomize;

For i: = 1 to M do

Begin

S:=0;

For j: = 1 to N do

Begin

A[i, j]:=random*13;

Write (A[i, j]:6:3,' ');

S:=S+A[i, j];

End;

WriteLn (' Sr = ', S/N:0:3);

End;

End.