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

Ксения201711112 Ксения201711112    1   15.03.2019 00:50    2

Ответы
drwnd drwnd  07.06.2020 01:37

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. 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика