Exercicio 04

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

Program numeros positivos ;
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