Программа в паскаль!

[Jore De-Fora]

Найти среднее значение элемента массива B[5;5] .
Каждый элемент массива разделить на среднее значение.

знаю что все это просто,но у меня материала нету.
помогите с решением если не трудно.буду признателен.

[Slap]

Вы, скорее всего, имели ввиду найти среднее значение элементов, а не элемента. Если так, тогда вот вам решение:

uses crt;
var
  s, i, j: Integer;
  b: array [1..5,1..5] of Integer;
  a: array [1..5,1..5] of Real;
  k:real;
begin
Randomize;
 for i:=1 to 5 do {Ввод элементов массива B}
  for j:=1 to 5 do
  begin
  b[i,j]:= 2*Random(50)-50;
  s:=s+b[i,j];
  end;
 for i:=1 to 5 do {Вывод массива B}
 begin
   for j:=1 to 5 do
   Write(b[i,j]:4);
  writeln;
  end;
 k:=s/25;
 writeln('Среднее значение элементов в массиве равно',k);
  for i:=1 to 5 do    {Деление каждого элемента массива B на k и занесение полученных результатов в массив a}
   for j:=1 to 5 do
   a[i,j]:=b[i,j]/k;
 for i:=1 to 5 do {Вывод}
 begin
   for j:=1 to 5 do {Вывод массива a}
   Write(a[i,j]:6:2);
  writeln;
  end;
end.

[Jore De-Fora]

да да точно, элементов. спасибо большое

[Slap]

Сообщение от Jore De-Fora

да да точно, элементов. спасибо большое

Пожалуйста