Program Vetor;
Var
vet:array[1..6] of integer;
i:integer;
Begin
i:=1;
repeat
write ('Digite um número inteito.....: ');
read (vet[i]);
i:=i+1;
until (i=7);
i:=1;
repeat
writeln ('Na posição ',i,' do vetor, encontrase o valor ',vet[i]);
i:=i+1;
until (i=7);
end.
Nenhum comentário:
Postar um comentário