Двумерный массив

[qwertyuiop12]

В матрице C(5x3) вычислить среднее арифметическое в каждой строке.Если наибольшее среднее арифметическое меньше числа 3.2, то все элементы матрицы разделить на этот максимум, в противном случае матрицу оставить без изменений.

[Rusl92]

фриланс
395359808
пиши, договоримся

[ROMA2PVT]

http://www.cyberforum.ru/pascal/thread123515.html
Не проверял.Если неверно переделаю.

[Lexa(-_-)]

помогите пожалуйста составить двумерный массив, например мы вводим сначала одну матрицу, потом вторую, а потом эти 2 матрицы складываем!!!!помогите составить!!!

[ROMA2PVT]

uses crt;
var
 a,b,s: array [1..20,1..20] of integer;
 m,n,i,j: integer;
begin
 clrscr;
write('Количество строк: ');
  readln(n);
  write('Количество столбцов:');
  readln(m);
  writeln('Матрица А: ');
   randomize;
   for i:=1 to n do
    begin
     for j:=1 to m do
      begin
       a[i,j]:=random(30)+10;
       write(a[i,j],' ');
      end;
      writeln;
    end;
   writeln;
     writeln('Матрица B: ');
   for i:=1 to n do
    begin
     for j:=1 to m do
      begin
       b[i,j]:=random(30)+10;
       write(b[i,j],' ');
      end;
      writeln;
    end;
  writeln;
  writeln('Сложение матриц: ');
  for i:=1 to n do
   begin
    writeln;
    for j:=1 to m do
     begin
      s[i,j]:=a[i,j]+b[i,j];
      write(s[i,j],' ');
     end;
   end;
 readkey;
end.