Вопрос по информатике:
Дан массив Z(3,4).Поменять в массиве второй столбец с четвёртым и вывести исходный массив и преобразованный в виде матриц
Пожаловаться
- 01.12.2016 17:36
- Информатика
- remove_red_eye 13833
- thumb_up 51
Ответы и объяснения 1
Const
N = 3;
M = 4;
Var
Z:array[1..N,1..M] of integer;
i,j,B:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
Z[i,j]:=random(21)-10;
Write(Z[i,j]:3,' ')
End;
WriteLn;
End;
WriteLn;
WriteLn('Второй и четвёртый столбец переставлены:');
For i:= 1 to N do
Begin
B:=Z[i,2];
Z[i,2]:=Z[i,4];
Z[i,4]:=B;
End;
For i:= 1 to N do
Begin
For j:= 1 to M do
Write(Z[i,j]:3,' ');
WriteLn;
End;
End.
Пример:
Исходный массив:
-7 2 -2 3
9 -6 -6 1
-9 10 -9 3
Второй и четвёртый столбец переставлены:
-7 3 -2 2
9 1 -6 -6
-9 3 -9 10
N = 3;
M = 4;
Var
Z:array[1..N,1..M] of integer;
i,j,B:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
Z[i,j]:=random(21)-10;
Write(Z[i,j]:3,' ')
End;
WriteLn;
End;
WriteLn;
WriteLn('Второй и четвёртый столбец переставлены:');
For i:= 1 to N do
Begin
B:=Z[i,2];
Z[i,2]:=Z[i,4];
Z[i,4]:=B;
End;
For i:= 1 to N do
Begin
For j:= 1 to M do
Write(Z[i,j]:3,' ');
WriteLn;
End;
End.
Пример:
Исходный массив:
-7 2 -2 3
9 -6 -6 1
-9 10 -9 3
Второй и четвёртый столбец переставлены:
-7 3 -2 2
9 1 -6 -6
-9 3 -9 10
Пожаловаться
- 03.12.2016 00:38
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы