Цитата:
Сообщение от TpaXmopucm
И вторая:составьте программу циклической перестановке столбцов двумерного массива.Л,при которой 1-ый столбец i+1-м,а последнийй столбец становится первым Помогите пожалуйста .... времени просто нету разобраться ... сдавать завтра !!!
|
Так. Пальчики, значит, экономим, авось и так поймут? Ну что же, вот вероятная расшифровка задания:
Составьте программу циклической перестановки столбцов двумерного массива, при которой 1-ый столбец становится 2-м, i-й - i+1-м, а последний столбец становится первым.
Код:
uses crt;
Const
M=3;
N=7;
var
a:array[1..M,1..N] of integer;
i,j,d:integer;
begin
clrscr;
writeln('Введите эл-ты массива');
for i:=1 to M do
for j:=1 to N do
begin
write('a[',i:1,',',j:2,']= ');
readln(a[i,j]);
end;
clrscr;
for i:=1 to M do
begin
for j:=1 to N do write(a[i,j]:4);
writeln;
end;
writeln;
for i:=1 to M do
begin
d:=a[i,N];
for j:=N-1 downto 1 do
a[i,j+1]:=a[i,j];
a[i,1]:=d;
end;
for i:=1 to M do
begin
for j:=1 to N do write(a[i,j]:4);
writeln;
end;
readln;
end.