Вопрос по информатике:
Дан массив R (М, M). Переставить строку с минимальным элементом на главной диагонали со строкой с заданным номером.PascalABC
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.02.2017 13:45
- Информатика
- remove_red_eye 8831
- thumb_up 21
Ответы и объяснения 1
Const
m=10;
var
R:array[1..m,1..m] of integer;
i,j,t,p,q:integer;
begin
Write('Введите номер строки (1..10) для перестановки: ');
Read(q);
Randomize;
Writeln('Исходный массив');
for i:=1 to m do begin
for j:=1 to m do begin
R[i,j]:=Random(90)+10;
Write(R[i,j]:3);
end;
Writeln
end;
p:=1;
for i:=2 to m do
if R[i,i]
Writeln('Результирующий массив');
for j:=1 to m do begin
t:=R[p,j]; R[p,j]:=R[q,j]; R[q,j]:=t
end;
for i:=1 to m do begin
for j:=1 to m do Write(R[i,j]:3);
Writeln
end
end
end.
Пример
Введите номер строки (1..10) для перестановки: 3
Исходный массив
50 86 52 85 96 69 44 51 20 77
55 79 39 73 98 74 65 65 63 80
64 89 83 55 98 74 85 63 90 52
37 42 64 84 66 78 67 31 56 34
69 18 34 48 42 44 12 91 67 47
72 19 14 22 53 61 13 97 87 31
83 80 61 67 50 22 25 55 16 29
16 44 19 39 20 55 65 44 23 63
72 93 96 52 79 27 38 52 40 15
75 70 44 34 50 88 57 66 97 29
Результирующий массив
50 86 52 85 96 69 44 51 20 77
55 79 39 73 98 74 65 65 63 80
83 80 61 67 50 22 25 55 16 29
37 42 64 84 66 78 67 31 56 34
69 18 34 48 42 44 12 91 67 47
72 19 14 22 53 61 13 97 87 31
64 89 83 55 98 74 85 63 90 52
16 44 19 39 20 55 65 44 23 63
72 93 96 52 79 27 38 52 40 15
75 70 44 34 50 88 57 66 97 29
- 24.02.2017 16:58
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.