помогите написать программу. Найти 2 максимальных элемента квадратной матрицы на Pascal.

Question

Алёнка · Accepted Answer

1.найди мах1 в матрице 
2.еще раз ищи мах2 и сравни с найденным мах1

Александр Зайцев · Answer

Program Name; 
const N=2; 
var a: array[1..n,1..n] of integer; 
i,j,max1,max2: integer; 
begin 
 
for i:=1 to n do 
begin 
for j:=1 to n do 
begin 
Write('BBEDUTE4uclo HoMEP ',j,' B ctol6eLL ',i,': '); 
ReadLn(a[i,j]); 
end; 
end; 
 
max1:=0; 
max2:=0; 
 
for i:=1 to n do 
begin 
for j:=1 to n do 
begin 
if a[i,j]>max1 then max1:=a[i,j]; 
end; 
end; 
 
for i:=1 to n do 
begin 
for j:=1 to n do 
begin 
if a[i,j]>max2 then if a[i,j]

Артак Саркисян · Answer

Привет – не вздумай обращаться за помощью к Георгию Зотикову – пусть он лучше расскажет правду как он мою подругу Лену кинул на деньги, а? Она ему заплатила за контрольную – и с концами……