введите целочисленный массив в(5).подсчитайте число положительных элементов и перепишите их подряд в другой массив (Паскаль)

[buzz]

задача такая:введите целочисленный массив в(5).подсчитайте число положительных элементов в массиве и перепишите их подряд без пропусков в другой массив.Выдайте на экран исходный и преобразованный массивы,если положительных элементов не окажется-выдайте соответствующий текст.оформить как процедуру создание нового массива

type
 tmas=array[1..5] of integer;
var
 a,b:tmas;
j,i,k:integer;
begin
write('vvedite massiv a=');readln(a);
j:=0
for i:=1 to 5 do 
begin
read(a);
if a>0 then begin
j:=j+1;
b[j]:=a;
end;
if j:=0 then writeln('net pologitelnih');
for i:=1 to 5 do write(a,' ');
writeln;
if j>0 then for i:=1 to j write(b[j],' ');
readln;
end.

________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.



2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

write('vvedite massiv a=');readln(a);

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

массив вводится в цикле, поочерёдно должны вводится элементы массива.
например, так:

write('vvedite massiv a:');
for i:=1 to 5 do
  Readln(a[i]);

[SaLoKiN]

Жееесть...такого количества ошибок в таком малом количестве строк давно не видел....

Program HelloWorld(output);
type
 tmas=array[1..5] of integer;
var
 a,b:tmas;
j,i,k:integer;

begin
    j:=0;
    write('vvedite massiv a=');
    writeln;
    for i:=1 to 5 do 
    begin
    read(a[i]);
        if a[i]>0 then 
        begin
        j:=j+1;
        b[j]:=a[i];
        end;
    end;    
    if j=0 then writeln(' net pologitelnih');

    for i:=1 to 5 do  write(a[i],' ');
    writeln;
    if j>0 then 
        for i:=1 to j do write(b[i],' ');
    readln;
end.

Улыбнуло:

if j:=0

write('vvedite massiv a=');readln(a);

[Serge_Bliznykov]

   if j>0 then 
        for i:=1 to j do write(b[i],' ');

кстати, в данном случае сравнение можно смело опустить и написать прямо так:

for i:=1 to j do write(b[i],' ');

[SaLoKiN]

согласен ;-)

[vlad333]

да я новичок совсем в этом деле,спасибо за ответы