Вопрос по информатике:
Найти наибольшие и наименьшие элементы прямоугольной матрицы и поменять их местами
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.08.2018 07:11
- Информатика
- remove_red_eye 17029
- thumb_up 6
Ответы и объяснения 1
Const m=5; n=6;
var
a:array[1..m,1..n] of integer;
i,j,max,imax,jmax,min,imin,jmin:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1]; imax:=1; jmax:=1;
min:=a[1,1]; imin:=1; jmin:=1;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end;
if a[i,j]
writeln('max = a[',imax,',',jmax,'] = ',max);
writeln('min = a[',imin,',',jmin,'] = ',min);
a[imax,jmax]:=min;
a[imin,jmin]:=max;
writeln('Полученный массив:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
69 2 25 92 32 43
98 77 49 29 48 5
30 8 95 83 37 83
31 6 47 91 82 65
86 31 62 70 82 38
max = a[2,1] = 98
min = a[1,2] = 2
Полученный массив:
69 98 25 92 32 43
2 77 49 29 48 5
30 8 95 83 37 83
31 6 47 91 82 65
86 31 62 70 82 38
- 02.08.2018 14:03
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.