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

Question

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

Comments

ну помогите

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.

Comments

а эту сможешь

---

найти min элемент матрицы заданной с клавиатуры

---

Program enot;
Var a: array [1..3,1..3] of integer;
min,i,j:integer;
begin
for i:= 1 to 3 do
for j:= 1 to 3 do
read(a[i,j]);
min:=a[1,1];
for i:= 1 to 3 do
for j:= 1 to 3 do
if a[i,j] write(min);
end.