Написать двумерный массив. найдите среднее арифметическое элементов массива заданных случайным образом [0 ... 20]

Question

Информатика

Аврам

18 августа, 02:15

Написать двумерный массив. найдите среднее арифметическое элементов массива заданных случайным образом [0 ... 20]

+1

Ответы (1)

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

Минодора · Answer 1

Program enot;

Var a: array [1 ... 3,1 ... 3] of integer;

i, j, s:integer; c: real;

begin

for i: = 1 to 3 do

for j: = 1 to 3 do

begin

a[i, j]: = random (20) ;

s:=s+a[i, j];

end;

c:=s/9;

write (c:4:2) ;

end.