Помогите сделать это в PASCAL, чтобы можно было выполнить все условия Используя следующий фрагмент программы, преобразуйте массив x по указанному ниже правилу, воспользовавшись массивом y как вспомогательным: Var х, у: array [1...
Помогите сделать это в PASCAL, чтобы можно было выполнить все условия
Используя следующий фрагмент программы, преобразуйте массив x по указанному ниже правилу, воспользовавшись массивом y как вспомогательным:
Var
х, у: array [1..70] of real;
k: 1..69;
а) все отрицательные элементы массива x перенесите в его начало, а все остальные — в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов;
б) элементы массива х циклически сдвиньте на k позиций влево.
Гость
Ответ(ы) на вопрос:
Гость{Используя следующий фрагмент программы, преобразуйте массив x по указанному ниже правилу,
воспользовавшись массивом 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.
Не нашли ответ?
Похожие вопросы