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