Ответ:
Можно так. Не спрашивайте, зачем такие сложные конструкции.
const M = 5;
const N = 8;
var A: array [1..M,1..N] of integer;
var i,j,max,min: integer;
begin
max:=11;
min:=11;
randomize();
For i:= 1 to M do
For j:= 1 to N do
A[i,j]:=random(20)+11;
if (A[i,j]<A[min div 10,min mod 10]) then min:=i*10+j;
if (A[i,j]>A[max div 10,max mod 10]) then max:=i*10+j;
write(A[i,j]:4);
end;
writeln();
writeln('Максимальный элемент массива: ',A[max div 10,max mod 10]);
writeln('Минимальный элемент массива: ',A[min div 10,min mod 10]);
writeln('Их сумма: ',A[max div 10,max mod 10]+A[min div 10,min mod 10]);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Можно так. Не спрашивайте, зачем такие сложные конструкции.
const M = 5;
const N = 8;
var A: array [1..M,1..N] of integer;
var i,j,max,min: integer;
begin
max:=11;
min:=11;
randomize();
For i:= 1 to M do
begin
For j:= 1 to N do
begin
A[i,j]:=random(20)+11;
if (A[i,j]<A[min div 10,min mod 10]) then min:=i*10+j;
if (A[i,j]>A[max div 10,max mod 10]) then max:=i*10+j;
write(A[i,j]:4);
end;
writeln();
end;
writeln('Максимальный элемент массива: ',A[max div 10,max mod 10]);
writeln('Минимальный элемент массива: ',A[min div 10,min mod 10]);
writeln('Их сумма: ',A[max div 10,max mod 10]+A[min div 10,min mod 10]);
end.