Найти место положение и значение максимального элемента массива 7 на 7. Написать на паскале
Найти место положение и значение максимального элемента массива 7 на 7. Написать на паскале
Гость
Ответ(ы) на вопрос:
Гость//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
Гость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
Не нашли ответ?
Похожие вопросы