[QBasic|Pascal] двумерные массивы

[PBJack]

Выполнить обработку элементов прямоугольной матрицы А, имеющей N строк и М столбцов. Найти наибольшее значение среди средних зна-чений для каждой строки матрицы.
кубэйсик или паскаль - без разницы. я чайник, поэтому пожалуйста без сокращений))) заранее спасиб за помощь

[Zeraim]

For y:=1 to n do begin
 For x:=1 to m do s[y]:=s[y]+a[y,x]\n;
end;
For y:=1 to n do if max<s[y] then max:=s[y]

[Arkuz]

Полностью готовая программа. Вставляй в паскаль, компилируй и сдавай преподу :-)

program Massiv_2d_matrix;

uses crt;
const
  count = 20;
var
  n,m,i,j:integer;
  sr,max:real;
  mas:array[1..count,1..count] of real;
  mas1:array[1..count] of real;
begin
  clrscr;
  write('Vvedite chislo strok matrici: ');
  readln(n);
  write('Vvedite chislo stolbcov matrici: ');
  readln(m);
  writeln;
  sr:=0;
  for i:=1 to n do
   for j:=1 to m do
     begin
      write('mas[',i,'][',j,'] = ');
      readln(mas[i,j]);
     end;
  writeln;
  writeln('*****MATRIX*****');
  writeln;
  for i:=1 to n do
   for j:=1 to m do
     begin
      write(mas[i,j]:0:2,' ');
      if j=m then writeln;
     end;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      sr:=(sr+mas[i,j]);
      mas1[i]:=sr/m;
     end;
   sr:=0;
   end;
  max:=mas1[1];
  writeln;
  writeln('*****SREDNIE ARIFMETICHESKIE STROK*****');
  for j:=1 to n do       // была ошибка. Вместо m нужно n
  begin
   writeln(mas1[j]:0:2);
   if mas1[j]>max then max:=mas1[j];
  end;
  writeln;
  writeln('*****NAIBOLSHEE SREDNEE ARIFMETICHESKOE*****');
  writeln('MAX = ',max:0:2);
  readln;
end.

[PBJack]

Arkuz, действительно огромное спасибо. Сейчас попробуем запустить))

[Arkuz]

Да не за что!!! Действительно приятно помогать!!!
Вот мне очень помог alexBlack, я ему благодарен.
Теперь ты мне благодарен. Может и тебе кто-то благодарен будет...

[ксюшап]

напиши те пожалуйста программу в кубэйсике,лучше если с объяснениями,что в каждой строке делается.
дана матрица размерностью m*m.найти количество элементов,меньших числа С.найти произведение элементов строки и столбца, на пересечении которых находится минимальный элемент этой матрицы.