Ответы
Ответ дал:
0
//Pascal ABC.NET сборка 1256
Const
n=7;
Var
ma:array[1..n,1..n] of integer;
i,j,max,maxi,maxj:integer;
begin
randomize;
max:=-1;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(1000);
write(ma[i,j]:4);
if max<ma[i,j] then
begin
max:=ma[i,j];
maxi:=i;
maxj:=j;
end;
end;
writeln;
end;
writeln('Max=',max);
writeln('Строка:',maxi);
write('Столбец:',maxj);
end.
Const
n=7;
Var
ma:array[1..n,1..n] of integer;
i,j,max,maxi,maxj:integer;
begin
randomize;
max:=-1;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(1000);
write(ma[i,j]:4);
if max<ma[i,j] then
begin
max:=ma[i,j];
maxi:=i;
maxj:=j;
end;
end;
writeln;
end;
writeln('Max=',max);
writeln('Строка:',maxi);
write('Столбец:',maxj);
end.
Ответ дал:
0
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,imax,jmax:integer;
begin
Randomize;
imax:=1; jmax:=1;
Writeln('Исходный массив');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(90)+10;
Write(a[i,j]:3);
if a[i,j]>a[imax,jmax] then
begin imax:=i; jmax:=j end;
end;
Writeln
end;
Writeln('Max[',imax,',',jmax,']=',a[imax,jmax])
end.
Тестовое решение
Исходный массив
76 22 34 68 78 87 98
67 76 68 10 70 63 68
78 83 88 38 89 83 88
41 70 55 59 34 37 86
48 55 86 64 98 92 59
14 47 94 74 99 15 52
35 91 31 89 31 16 91
Max[6,5]=99
n=7;
var
a:array[1..n,1..n] of integer;
i,j,imax,jmax:integer;
begin
Randomize;
imax:=1; jmax:=1;
Writeln('Исходный массив');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(90)+10;
Write(a[i,j]:3);
if a[i,j]>a[imax,jmax] then
begin imax:=i; jmax:=j end;
end;
Writeln
end;
Writeln('Max[',imax,',',jmax,']=',a[imax,jmax])
end.
Тестовое решение
Исходный массив
76 22 34 68 78 87 98
67 76 68 10 70 63 68
78 83 88 38 89 83 88
41 70 55 59 34 37 86
48 55 86 64 98 92 59
14 47 94 74 99 15 52
35 91 31 89 31 16 91
Max[6,5]=99
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад