Pascal

1. Escreva um programa que receba a idade de 10 pessoas, calcule e imprima a quantidade de pessoas maiores de idade (idade>=18 anos).

Program P01 ;
Var
I, ID, ID18, cont: integer; Begin cont:=0; for I:=1 to 10 do begin writeln ('informe a sua idade: '); read (ID); if (ID >= 18) then cont:=cont+1; end; writeln ('A quantidade de pessoas com idade acima de 18: ', cont); End.

2. Escreva um programa que receba a idade de 15 pessoas, calcule e imprima a quantidade de pessoas em cada faixa etária:
As faixas etárias são:
1 _______ 15 anos
16 _______ 30 anos
31 _______ 45 anos
46 _______ 60 anos
> = 61 anos

Program P02 ;
Var
I, ID, cont, cont16, cont31, cont46, cont61: integer; Begin cont:=0; cont16:=0; cont31:=0; cont46:=0; cont61:=0; for I:=1 to 15 do begin writeln ('Informe a sua idade:'); Readln (ID); begin if (ID > 1) and (ID < 15) then cont:=cont+1; end; begin if (ID > 16) and (ID < 30) then cont16:=cont16+1; end; begin if (ID > 31) and (ID 46) and (ID < 60) then cont46:=cont46+1; end; begin if (ID >= 61) then cont61:=cont61+1; end; end; writeln ('Quantidade de pessoas com idade entre 1 e 15 anos: ', cont); writeln ('entre 16 e 30: ', cont16); writeln ('entre 31 e 45: ', cont31); writeln ('entre 46 e 60: ', cont46); writeln ('maior que 61: ', cont61); End.

3. Escreva um programa que receba um conjunto de valores inteiros e positivos, calcule e imprima o maior e o menor valor do conjunto. . Para encerrar a entrada de dados, deve ser digitado o valor zero. . Para valores negativos, deve ser enviada uma mensagem. . Esses valores (zero e negativos) não entrarão nos cálculos.

Program P03 ;
Var
n, maior, menor: integer; Begin maior:=0; menor:=2553; Repeat writeln ('digite número: '); read (n); if n < 0 then writeln ('valor invalido') else if n > 0 then begin if n > maior then