дан произвольный двумерный массив целых чисел.Найти номер строки, в которой находится наибольшее по величине число

1

Ответы и объяснения

Лучший Ответ!
2012-06-09T11:27:23+04:00

Program n1;
Uses CRT;
Const n=10;
Var A: array[1..n,1..n] of integer;
i,j,max: integer;
begin
clrscr;
randomize;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln
end;
Writeln;
max:=0;
For i:=1 to n do
For j:=1 to n do
If a[i,j]>max then
max:=a[i,j];
Writeln('Maksimalnii element ',max,' nahoditsa v strokah');
For i:=1 to n do
For j:=1 to n do
If a[i,j]=max then write(i:3);
readln
end.