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.

Answer 2

а эту сможешь

Answer 3

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

Answer 4

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]<min then min:= a[i,j];
write(min);
end.