Question

  В массиве из 12 целых положительных чисел от 0 до 20 поменять местами первый и последний элементы, второй и предпоследний, и т.д.. Вывести исходный и полученный массивы, ABC Paskal

Answer 1

Возможны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.

a,i,m(12) as integer

for i=1 to 12 do

readln(m(i));

for i=1 to 6 do begin

a:=m(i);

m(i):=m(13-i);

m(12-i):=a;

end;

for i=1 to 12 do

writeln(m(i));

end.

Если что-то не понятно или выводит ошибку - пишите.