С первой строки матрицы сдвинуть сдвинуть все строки на две вниз

@lyosha · Регистрация: 17.03.2011

Author24 — интернет-сервис помощи студентам

Дан двумерный массив начиная с первой строки сдвинуть сдвинуть все строки на две вниз , а последние две переместить на место первых двух.

@Puporev · 21.03.2011, 09:46

Pascal

uses crt;
const max=20;
var a:array[1..max,1..max] of integer;
    k,m,n,i,j,r,p:byte;
    s:integer;
begin
repeat
write('Количество строк k=');
read(k);
until k in [1..max];
repeat
write('Количество столбцов m=');
read(m);
until m in [1..max];
writeln('Исходная матрица:');
for i:=1 to k do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=10*i+j;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
n:=2;
for j:=1 to m do
for i:=1 to n do
 begin
  s:=a[k,j];
  for p:=k downto 2 do
  a[p,j]:=a[p-1,j];
  a[1,j]:=s;
 end;
writeln('Результат сдвига:');
for i:=1 to k do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end.

@lyosha 0 / 0 / 0 Регистрация: 17.03.2011 Сообщений: 17
		1
	С первой строки матрицы сдвинуть сдвинуть все строки на две вниз 21.03.2011, 09:08. Показов 2513. Ответов 1 Метки нет (Все метки) Дан двумерный массив начиная с первой строки сдвинуть сдвинуть все строки на две вниз , а последние две переместить на место первых двух. 0

	21.03.2011, 09:46

С первой строки матрицы сдвинуть сдвинуть все строки на две вниз

Решение