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

Question

Информатика

Устин

26 февраля, 11:54

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

+5

Ответы (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.