const
n = 10; //количество элементов массива
var
a: array [1..n] of real;
i: integer;
begin
for i:= 1 to n do
begin
writeln('Введите ', i, ' элемент массива');
readln(a[i]); //вводим очередной элемент массива
end;
write('Исходный массив: ');
for i:= 1 to n do
write(a[i], ' '); //Выводим исходный массив
writeln; //Перевод на новую строку
write('Полученный массив: ');
for i:= 1 to n do
begin
a[i]:= a[i] * a[n]; //элемент массива умножаем на последний элемент
write(a[i], ' '); //выводим полученный элемент массива
end;
end.
воспользовавшись массивом y как вс
а) все отрицательные элементы массива x перенесите в его начало,
а все остальные — в конец, сохраняя исходное взаимное
расположение как среди отрицательных, так и среди остальных элементов;
б) элементы массива х циклически сдвиньте на k позиций влево.}
Var
x, y: array [1..70] of real;
k: 1..69;
n, i,j, k1: integer;
c :real;
begin
writeln('введите кол-во элементов массива');
readln(n);
writeln('введите элементы массива');
for i:=1 to n do read(x[i]);
k1:=0;
{все отрицательные элементы массива x перенесите в начало массива y}
for i:=1 to n do
if x[i]<0 then
begin
k1:=k1+1;
y[k1]:=x[i]
end;
{все не отрицательные элементы массива x переносим в конец массива y}
for i:=1 to n do
if x[i]>=0 then
begin
k1:=k1+1;
y[k1]:=x[i]
end;
for i:=1 to n do
x[i]:=y[i];
for i:=1 to n do
write(x[i]:8:2);
{б) элементы массива х циклически сдвиньте на k позиций влево.}
writeln('введите k');
readln(k);
for i:=1 to n do y[i]:=x[i];
for i:=1 to n-k do x[i]:=x[i+k];
for i:=1 to k do x[n-k+i]:=y[i];
for i:=1 to n do write(x[i]:8:2);
end.