Lista de exercicios - Array - Vetor

4 - Escreva um algoritimo que leia um vetor de 50 posições de numeros inteiros e mostre somente os positivos.

Program Pzim ;
var
num:array[1..5]of integer;
cont, i:integer;
positivo:array[1..5]of integer;
Begin
i:= 0;
for cont:=1 to 5 do
begin
writeln('Informe um número:');
readln(num[cont]);
if num[cont]>0 then
begin
i:= i + 1;
positivo[i] := num[cont];
end;
end;
for cont:=1 to i do
writeln('Os números positivos sao:',positivo[cont]);

End.