Вопрос по информатике:
Как в двумерном массиве поменять 1 и 3 строки местами? Паскаль.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.03.2015 23:46
- Информатика
- remove_red_eye 16730
- thumb_up 49
Ответы и объяснения 1
var a, b, c, d, k, i, j, n1, n2 :integer;
s: array [1..100,1..100] of integer;
procedure swap(a, b :integer; var c, d :integer);
var e :integer;
begin
c:=b;
d:=a;
end;
begin
read (n1, n2);
for i:=1 to n1 do
for j:=1 to n2 do
read (s[i,j]);
for j:=1 to n2 do
swap (s[1,j],s[3,j],s[1,j],s[3,j]);
for i:=1 to n1 do
begin
writeln;
for j:=1 to n2 do
write (s[i,j],' ');
end
end.
- 11.03.2015 07:29
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.