Переместить все положительные элементы в начало массива ПОЖАЛУЙСТА !!!!!! ПОМОГИТЕ !!!!!!!!!!!!!!!!!!!!!!!!!!!!
China99:
Паскаль ?
Ответы
Ответ дал:
1
const
n = 20;
var
a,b: array[1..n] of integer;
i, j, i2: integer;
begin
Randomize;
Writeln('Элементы массива');
j:=0;
for i := 1 to n do
begin
a[i] := Random(51)-25;
Write(a[i]:4);
if a[i]<0 then begin Inc(j); b[j]:=a[i] end;
end;
Writeln;
for i := 1 to n do
if a[i]>=0 then begin Inc(j); b[j]:=a[i] end;
Writeln('Результат');
for i := 1 to n do Write(b[i]:4);
Writeln
end.
Тестовое решение:
Элементы массива
3 14 10 1 -3 -2 -11 -12 13 1 17 13 8 24 -3 -23 -17 -8 -10 -22
Результат
-3 -2 -11 -12 -3 -23 -17 -8 -10 -22 3 14 10 1 13 1 17 13 8 24
n = 20;
var
a,b: array[1..n] of integer;
i, j, i2: integer;
begin
Randomize;
Writeln('Элементы массива');
j:=0;
for i := 1 to n do
begin
a[i] := Random(51)-25;
Write(a[i]:4);
if a[i]<0 then begin Inc(j); b[j]:=a[i] end;
end;
Writeln;
for i := 1 to n do
if a[i]>=0 then begin Inc(j); b[j]:=a[i] end;
Writeln('Результат');
for i := 1 to n do Write(b[i]:4);
Writeln
end.
Тестовое решение:
Элементы массива
3 14 10 1 -3 -2 -11 -12 13 1 17 13 8 24 -3 -23 -17 -8 -10 -22
Результат
-3 -2 -11 -12 -3 -23 -17 -8 -10 -22 3 14 10 1 13 1 17 13 8 24
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад