Guest tróia Postado Setembro 25, 2008 Denunciar Share Postado Setembro 25, 2008 onde estou errandoprogram quantidade;uses crt;var s, i, q :integer;var a: array[1..101] of integer: begin clrscr; s := 0; q := 0; for i := 1 to 101 do writeln('digite um numero'); readln(a); s := s + i / a; end; begin for i := 1 to 101 do if i > a then begin q := q + 1; end;end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 raphael_suporte Postado Setembro 26, 2008 Denunciar Share Postado Setembro 26, 2008 se você copiou do seu programa o erro está na declaração mesmo.var s, i, q :integer; var a: array[1..101] of integer[b]:[/b]você está terminando com 2 pontos e não com ponto e vírgula.o erro deve está sendo descrito pelo Pascal quando você tenta compilar.. se não for esse o erro post aqui a mensagem de erro.PSComo é vetor você não precisa por [1..101], caso você queira um vetor de 100 casas basta colocar o [100], esse jeito seria mais para matrizes [1..101,1..20], entendeu?! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest tróia Postado Outubro 1, 2008 Denunciar Share Postado Outubro 1, 2008 valeu a dica deu certo Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest tróia
onde estou errando
program quantidade;
uses crt;
var s, i, q :integer;
var a: array[1..101] of integer:
begin
clrscr;
s := 0;
q := 0;
for i := 1 to 101 do
writeln('digite um numero');
readln(a);
s := s + i / a;
end;
begin
for i := 1 to 101 do
if i > a then
begin
q := q + 1;
end;
end.
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.