В двумерном массиве, введёном случайными числами найти минимальное и максимальное значения, их номера и поменять их местами. !!!!!!!ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!

1

Ответы и объяснения

  • Diima
  • середнячок
2013-04-11T15:44:30+04:00

program pr1;
var
m:array[1..100,1..100] of integer;
i,j,a,b,max,min,k,n,z:integer;
begin
randomize;
max:=0;
min:=100;
for i:=1 to 4 do
for j:=1 to 4 do
m[i,j]:=random(100);
for i:=1 to 4 do
for j:=1 to 4 do
begin
writeln(m[i,j]);
if m[i,j]>=max then begin max:=m[i,j];k:=i;n:=j; end;
if m[i,j]<=min then begin min:=m[i,j];a:=i;b:=j; end;
end;
z:=m[k,n];
m[k,n]:=m[a,b];
m[a,b]:=z;
writeln('');
for i:=1 to 4 do
for j:=1 to 4 do
writeln(m[i,j]);
readln;
end.

колличество элементов массива и диапазон рандома выбери сама