ПАСКАЛЬ!!! Изменить текст программы примера №2 так, чтобы программа обменивала максимальный элемент матрицы и первый элемент первой строки Program pr2; Var A : array [1..4, 1..4] of integer ; i,j, max, p, k: integer ; Begin ra...
ПАСКАЛЬ!!!
Изменить текст программы примера №2 так, чтобы программа обменивала максимальный элемент матрицы и первый элемент первой строки
Program pr2;
Var A : array [1..4, 1..4] of integer ;
i,j, max, p, k: integer ;
Begin
randomize;
For i:=1 to 4 do
For j:=1 to 4 do
A[i,j]:=random (100);
max:=A[1,1]; k:=1; p:=1;
For i:=1 to 4 do
For j:=1 to 4 do
if A[i,j]>max then begin
max:=A[i,j];
k:=i;
p:=j;
end;
For i:=1 to 4 do begin
For j:=1 to 4 do
write (A[i,j], ' ');
writeln;
end;
writeln ('Максимальный элемент матрицы = ', max);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
end.
Гость
Ответ(ы) на вопрос:
ГостьVar A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
randomize;
k:=1; p:=1;
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random (100);
if A[i,j]>A[k,p] then
begin
k:=i;
p:=j;
end;
Write(A[i,j]:3);
end;
Writeln;
end;
writeln ('Максимальный элемент матрицы = ', A[k,p]);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
i:=A[k,p];
A[k,p]:=A[1,1];
A[1,1]:=i;
For i:=1 to 4 do
Begin
For j:=1 to 4 do Write(A[i,j]:3);
Writeln;
end;
end.
Не нашли ответ?
Похожие вопросы