Pessoal,
Segue abaixo a solução dos algoritmos solicitados. O primeiro é referente a solução da questão 10 da lista de vetor I. E o segundo é para informar se existe determinado número informado pelo usuário em um vetor gerado randomicamente.
program v1_10;
uses crt;
var vet_p,vet_i:array[1..10] of integer;
n,j,l,ip,ii:integer;
begin
clrscr;
randomize;
ip:=1; ii:=1;
for j:=1 to 30 do
begin
n:=random(50);
if n mod 2 = 0 then
begin
vet_p[ip]:=n;
ip:=ip+1;
if (ip=11) then
begin
writeln;
writeln('Conteudo do vetor par:');
{Exibe o conteúdo do vetor}
for l:=1 to 10 do
write(vet_p[l],' ');
{Zera o conteúdo do vetor}
for l:=1 to 10 do
vet_p[l]:=0;
ip:=1;
end;
end
else
begin
vet_i[ii]:=n;
ii:=ii+1;
if (ii=11) then
begin
writeln;
writeln('Conteudo do vetor impar:');
{Exibe o conteúdo do vetor}
for l:=1 to 10 do
write(vet_i[l],' ');
{Zera o conteúdo do vetor}
for l:=1 to 10 do
vet_i[l]:=0;
ii:=1;
end;
end;
end;
writeln;
writeln('Conteudo restante do vetor impar:');
for j:=1 to 10 do
write(vet_i[j],' ');
writeln;
writeln('Conteudo restante do vetor par:');
for j:=1 to 10 do
write(vet_p[j],' ');
end.
program v1_boo;
uses crt;
var v:array[1..50] of integer;
n,i:integer;
achou:boolean;
begin
clrscr;
achou:=false;
randomize;
for i:=1 to 50 do
v[i]:=random(71);
writeln('Digite um numero ente 0 e 70 que deseja buscar');
readln(n);
for i:=1 to 50 do
if v[i]=n then
achou:=true;
if achou then
writeln('O numero foi localizado')
else
writeln('O numero NAO foi localizado');
writeln;
writeln;
for i:=1 to 50 do
write(v[i], ' ');
end.
