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

Question

Информатика

Юраша

1 марта, 18:51

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

+1

Ответы (1)

Знаете ответ на вопрос?

Елистрат · Answer 1

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.