Сортировка чисел

@MrLOLS · Регистрация: 21.11.2010

Author24 — интернет-сервис помощи студентам

Создать программу которая будет:
- заполнение массива вручную;
- заполнение массива автоматически;
- все положительные числа с массива записать в переменную;
- все отрицательные числа с массива, записать в новый массив;

В моей программе новый массив B заполнятся не нужными нулями, как исправить:

Pascal

Program MAS1;
var 
A:array[1..100] of integer;
B:array[-100..100] of integer;
i,N,P: integer;
Begin
write('Введіть кількість елементів масиву - '); read(N);
write('Як заповнити масив? 1-авто, 2-вручну: '); read(i);
if i=1 then for i:=1 to N do begin A[i]:=random(100)-50; write(A[i]:5) end;
if i=2 then
  begin
    for i:=1 to N do
      begin write('Введіть ',i,' елемент масиву - '); read(A[i]); end;
      write('Масив: '); for i:=1 to N do write(A[i]:5);
  end;
writeln('');
 
P:=0;
for i:=1 to N do
begin
    if A[i] >= 0 then P:=P+A[i]
else B[i]:=A[i];
end;
 
writeln('Сумма додаткових числел - ',P);
writeln('Новий масив з відємними числами - '); for i:=1 to N do write(B[i]:5);
End.

Если еще переведете эту программу в C++, буду мегаблагодарен.

@hello_world · 20.09.2011, 18:14

как-то так:

Pascal

Program MAS1;
var
A:array[1..100] of integer;
B:array[1..100] of integer;
z,i,j,N,P,q: integer;
Begin
write('Введіть кількість елементів масиву - '); read(N);
write('Як заповнити масив? 1-авто, 2-вручну: '); read(z);
if z=1 then for i:=1 to N do begin A[i]:=random(100)-50; write(A[i]:5) end;
if z=2 then
  begin
    for i:=1 to N do
          begin write('Введіть ',i,' елемент масиву - '); read(A[i]); end;
          write('Масив: '); for i:=1 to N do write(A[i]:5);
  end;
writeln('');
P:=0;
for i:=1 to N do begin
        if A[i] >= 0 then
        P:=P+A[i] else
        for i:= 1 to n do begin
        inc(q); B[q]:=A[i]; end; end;
 
writeln('Сумма додаткових числел - ',P);
writeln('Новий масив з відємними числами - ');
   for j:= 1 to n do if B[j]<0 then
   write(B[j]:5);
End.

с переводом в C++ в другой раздел.

@MrLOLS · 20.09.2011, 18:31 **[ТС]**

Pascal

Program MAS1;
var 
A:array[1..100] of integer;
B:array[-100..100] of integer;
i,N,P: integer;
Begin
write('Введіть кількість елементів масиву - '); read(N);
write('Як заповнити масив? 1-авто, 2-вручну: '); read(i);
if i=1 then for i:=1 to N do begin A[i]:=random(100)-50; write(A[i]:5) end;
if i=2 then
  begin
    for i:=1 to N do
      begin write('Введіть ',i,' елемент масиву - '); read(A[i]); end;
      write('Масив: '); for i:=1 to N do write(A[i]:5);
  end;
writeln('');
 
P:=0;
for i:=1 to N do
begin
    if A[i] >= 0 then P:=P+A[i]
else B[i]:=A[i];
end;
 
writeln('Сумма додаткових числел - ',P);
writeln('Новий масив з відємними числами - '); for i:=1 to N do if B[i]<0 then write(B[i]:5);
End.

	20.09.2011, 18:31