Программа на паскале!

[Igormak]

Здраствуйте,прошу вашей помощи так как сам рзобраться не могу!
Задача:Дан массив целых чисел А длинной n!Cформировать второй массив B,поместив в него все отрицательные числа из исходного массива!
Проблема:в основном выдает неправельные отрицательные числа!и выдает не ток ол во отриц чисел какое есть!
Вот мои наброски:
uses crt;
type mas = array [1..100] of integer;
var a,b:mas;
k,n,i,p:integer;
begin
clrscr;
k:=0;
write('Vvedite kol-vo chisle: ');
readln(n);
for i:=1 to n do begin
write('Vvedite chislo: ');
readln(a[i]);
end;
for i:=1 to n do begin
write(' ',a[i]);
end;
K:=0;
for i:=1 to n do begin
if a[i]<0 then begin
b[i]:=a[i];
k:=k+1;
end;
end;
writeln;
for i:=1 to k do
write(' ',b[i]);
readln
end.
Прогу надо написать на турбо паскале!зарание спасибо

[Mad_Cat]

uses crt;
type mas = array [1..100] of integer;
var a,b:mas;
k,n,i,p:integer;
begin
clrscr;
k:=0;
write('Vvedite kol-vo chisle: ');
readln(n);
for i:=1 to n do begin
write('Vvedite chislo: ');
readln(a[i]);
end;
for i:=1 to n do begin
write(' ',a[i]);
end;
K:=0;
for i:=1 to n do begin
if a[i]<0 then begin
b[k]:=a[i];
k:=k+1;
end;
end;
writeln;
for i:=1 to k do
write(' ',b[i]);
readln
end.

Это куда вставить

Я б сказал, но тут женщины и дети!

[Igormak]

Это куда вставить)напиши плиз прогу законченую(исправленную)буду оченьблагодарен)

[Igormak]

[/CODE]
Я б сказал, но тут женщины и дети![/QUOTE]
спасибо)

[ProgramerViktor]

Mad_Cat,
Я конечно извиняюсь, но вы сами пробовали работу этой программы
Как можно написать, b[k]:=a[i];
и в конце выводить массив write(' ',b[i]);
если не пробовали программу, зачем путать студентов и писать филькину грамоту!
Вот Igormak правильное решение:

uses crt;
type mas = array [1..100] of integer;
var a,b:mas;
k,n,i,j:integer;
begin
clrscr;
randomize;
k:=0;
write('Vvedite kol-vo chisle: ');
readln(n);
for i:=1 to n do begin
write('Vvedite chislo: ');
readln(a[i]);
end;
for i:=1 to n do begin
write(' ',a[i]);
end;
K:=0;
j:=0;
for i:=1 to n do
if a[i]<0 then begin
k:=k+1;
j:=j+1;
b[j]:=a[i];
end;
write('Kol-vo otric chisel: ',k);
writeln;
for j:=1 to k do begin
write(b[j]:4);
end;
readln
end.

По крайней мере все работает правильно!!!

[Mad_Cat]

k:=k+1;
j:=j+1;

а зачем вам 2 счетчика то?

[ProgramerViktor]

Ну а как ещё?) просто если записывать заново в i то тогда число запоминается но его позиция не удовлетворяет количеству отриц чисел,например, i=5 и это число отриц
значит b[5]:=a[5];
но если чисел отриц 1, то будет ноль т.к. у числа номер 5.
а k чтобы в цикле задать диапозон чисел отриц

[mss]

тут женщины и дети

Виртуально они все гусары (а как же иначе ?) и вряд ли промолчат, когда топикстартер употребил вполне себе так невинное "вставить")

[Alex11223]

А i тут причем?
речь была про одинаковые счетчики j и k.Что мешает вместо

for j:=1 to k do begin
 write(b[j]:4);
end;

Вместо k использовать j, а вместо j i?) (for i:=1 to j do ...)
И выше где кол-во выводите.

Кстати, используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[ProgramerViktor]

Возможно Alex11223 вы и правы, и так переменных меньше, но я изучаю паскаль всего полгода. пока 1 курс техникума. тем более если так посмотреть главное чтобы программа работала, а у Mad_Cat она не работала никак