Дан Массив. А(п). Вывести в порядке следования: все отрицательные числа, затем все положительные числа.Помогите пожалуйста Pascal
Ответы
Ответ дал:
0
Заранее сорян, если накосячил c точками - запятыми и тд. (c++ one love)
program lolkekchebyrek;
var a[n], b, c, i : integer;
begin
read(n);
for i := 1 to n do begin
read(a[i]);
end;
for i := 1 to n do begin
if a[i] < 0 then begin
write(a[i], " ");
end;
for i := 1 to n do begin
if a[i] > 0 then begin
write(a[i], " ");
end;
end.
program lolkekchebyrek;
var a[n], b, c, i : integer;
begin
read(n);
for i := 1 to n do begin
read(a[i]);
end;
for i := 1 to n do begin
if a[i] < 0 then begin
write(a[i], " ");
end;
for i := 1 to n do begin
if a[i] > 0 then begin
write(a[i], " ");
end;
end.
Ответ дал:
0
thx
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад