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

Question

Информатика

Вишута

21 июля, 03:15

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

+2

Ответы (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.