Паскаль, помогите!!! Ввести с клавиатуры массив из 12 элементов.Переставить первый и последний элемент. Третий заменить на восьмой

1

Ответы и объяснения

2012-10-26T13:17:04+00:00

const

n=12 

var

a:array [1..n] of integer;

i,k:integer;

begin

for i:=1 to n do readln(a[i]);

k:=a[1];

a[1]:=a[n];

a[n]:=k;

a[3]:=a[8];

for i:=1 to n do write (a[i],' ');

readln;

end.