Опубликовано 03.01.2018 по предмету Информатика от Гость

Найти минимальный и максимальный элементы в матрице их номера.Формат вывода:
Минимальный элемент A[3,4]=11
Максимальный элемент A[2,2]=89
Кумир!!!Полное решение!Заранее большое спасибо!! :3

Ответ оставил Гость

Const n=10; m=10;
var a:array [1..n,1..m] of integer;
i,j,min,x1,y1,max,x2,y2:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
min:=a[1,1];
max:=a[1,1];
x1:=1;
x2:=1;
y1:=1;
y2:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]begin
min:=a[i,j];
x1:=i;
y1:=j;
end else 
if a[i,j]>max then begin 
max:=a[i,j];
x2:=i;
y2:=j;
end;
writeln (Минимальный элемент    A[,x1,,,y1,]=,min);
writeln (,Максимальный элемент    A[,x2,,,y2,]=,max);
end.

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы
Самые новые вопросы