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

[V@liK]

Распечатать значение элементов строки из двумерного массива размерностью n и m с нaибольшeм количeством положитeльных элeмeнтов

[Stilet]

Ну например так:

MODULE ObxHello0;

	IMPORT StdLog;

	PROCEDURE Do2*;
	CONST n=4;m=4;
	VAR a:ARRAY(n) OF ARRAY(m) OF INTEGER;
	 q,w,maxp,mx,mxi:INTEGER;
	BEGIN StdLog.Clear;
	 maxp:=0;mxi:=0;mx:=0;
	 FOR q:=0 TO LEN(a)-1 DO 
   	 FOR w:=0 TO LEN(a[q])-1 DO
	   a[q,w]:=q*w;
	   IF a[q,w]>0 THEN INC(mx); END;
		StdLog.Int(a[q,w]); StdLog.Tab;
 	  END;
     IF mx>maxp THEN mxi:=q;maxp:=mx END;
	  StdLog.Ln;	(* вывод строки и 0DX в рабочий журнал *)
	 END;
	  StdLog.String('Максимальный элемент = ');
	 StdLog.Ln;	(* вывод строки и 0DX в рабочий журнал *)
	 
	  FOR q:=0 TO LEN(a[mxi])-1 DO
	   StdLog.Int(a[mxi,q]); StdLog.Tab;
 	 END;
	
	END Do2;
	
END ObxHello0.
ObxHello0.Do2

Вот результ:

0 0 0 0
0 1 2 3
0 2 4 6
0 3 6 9
Максимальный элемент = 0 3 6 9

[psycho-coder]

2Stilet: Это на каком языке? Пиджин?
Почитайте теорию

[Stilet]

Это на каком языке?

Оберон.
Автору как раз подойдет.

[V@liK]

Понимаете у нас контрольная по Turbo pascal. можeт кто eщe идeи подкинeт?

[Stilet]

по Turbo pascal

Все очень рады за тебя. Только недоумевают почему ты не указал это в задании.

[V@liK]

Но все таки. Может кто нибудь что нибудь подкинуть?

[Stilet]

Может кто нибудь что нибудь подкинуть?

А что ссылка, которую psycho-coder дал мала?

[V@liK]

спасибо всем.

[Kotlyar562]

Если еще актуально, то вот

program proect;
const n=3; m=3;
type matrica = array [1..n,1..m] of real;
     vector= array [1..n] of integer;
var a: matrica;
    i,j:integer;
procedure vvod (var a: matrica);
begin
  for i:=1 to n do
  for j:=1 to m do
  begin
    write('vvedit [',i,';',j,']=');
    readln (a[i,j]);
  end;
end;

procedure vuvod(a:matrica);
var v: vector;
    max:integer;
begin
  for i:=1 to n do
  begin
    v[i]:=0;
    for j:=1 to m do
    if a[i,j]>0 then v[i]:=v[i]+1;
  end;
  max:=v[1];
  for i:=2 to n do
    if v[i]>v[i-1] then max:=v[i];
  for i:=1 to n do
    if v[i]=max then
    begin
      for j:=1 to m do
        write(a[i,j]:0:2,' ');
      writeln;
    end;
end;
begin
  vvod(a);
  vuvod(a);
  readln;
end.