Question

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

Answer 1

Program enot;
Var a:array[1..5,1..5] of integer;
 i,j,s: integer;
 c:real;
 begin for i:= 1 to 5 do 
 for j:= 1 to 5 do 
 begin 
 a[i,j]:= random (20);
  s:=s+a[i,j];
  c:=s/25;
  end;
  write(c); 
 end.