Предмет: Информатика,
автор: sergeituning
помогите пожалуйста решить в паскале АВC/линейные массивы.№4 вставка. В линейный массив целых чисел на 7-е место вставить число равное квадрату первого элемента.№5. Преобразование. Дан массив из четного числа элементов. Поменять местами его половины
Ответы
Автор ответа:
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.
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
Предмет: Литература,
автор: irinkatrofimova