• Помогите сделать это в PASCAL, чтобы можно было выполнить все условия

    Используя следующий фрагмент программы, преобразуйте массив x по указанному ниже правилу, воспользовавшись массивом y как вспомогательным:
    Var
    х, у: array [1..70] of real;
    k: 1..69;
    а) все отрицательные элементы массива x перенесите в его начало, а все остальные — в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов;
    б) элементы массива х циклически сдвиньте на k позиций влево.

Ответы 2

  • спасибо большое :-)
  • {Используя следующий фрагмент программы, преобразуйте массив 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years