Цитата:
Сообщение от zaaag
Вот начал а дальше не знаю как((
|
Да, начало, конечно, мощное. Ну ладно, держите продолжение с окончанием:
Код:
Uses CRT;
var
i,n,s,b1,b2: integer;
a:array[1..100] of integer;
begin
clrscr;
write('n= ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
clrscr;
writeln('Initial array:');
for i:=1 to n do write(a[i]:4);
writeln;
b1:=a[1];
b2:=a[2];
for i:=3 to n do a[i-2]:=a[i];
a[n-1]:=b1;
a[n]:=b2;
writeln('Shifted array:');
for i:=1 to n do write(a[i]:4);
readln
end.