Предмет: Информатика, автор: sergeituning

помогите пожалуйста решить в паскале АВC/линейные массивы.№4 вставка. В линейный массив целых чисел на 7-е место вставить число равное квадрату первого элемента.№5. Преобразование. Дан массив из четного числа элементов. Поменять местами его половины

Ответы

Автор ответа: GhostOfYou
0
№5
const n=10;
var A:array [1..n]of integer;
i,r:integer;
begin
   cls;
   for i:=1 to n do read(A[i]);
   for i:=1 to(n div 2)do
      begin
         r:=A[i];
         A[i]:=A[i+(n div 2)];
         A[i+(n div 2)]:=r;
      end;
   for i:=1 to n do write(A[i]:3);
end.
Похожие вопросы
Предмет: Химия, автор: Аноним
Предмет: История, автор: serjnekrass161299
Предмет: Математика, автор: dinaraisanova568