1. Escreva um programa em Pascal para ler, calcular e escrever a média aritmética entre dois números.

program ex1;uses crt;

var n1, n2, m: real;

beginclrscr;write('Informe um numero: ');readln(n1);write('Informe outro numero: ');readln(n2);m:=(n1+n2)/2;writeln('A media ‚: ',m:0:2);readkey;end.

2. Escreva um programa em Pascal para ler um número positivo qualquer, calcular e escrever o quadrado e a raiz quadrada do mesmo.

program ex2;uses crt;

var x, q: integer; r: real;

beginclrscr;write('Informe um numero: ');readln(x);q:= sqr(x);writeln('O quadrado de ', x, ' ‚ ', q);if x>=0 then begin r:= sqrt(x); writeln('A raiz quadrada de ', x, ' ‚ ', r:0:2); endelse begin writeln('Nao existe raiz de ',x); end;readkey;end.

3. Program MEDIA_20;

Uses crt;

var

conta:integer;

media,num,soma:real;

Begin

Clrscr;

conta := 0;

soma := 0;

Writeln ('Digite 20 numeros');

While conta < 20 do

Begin

read (num);

soma := soma + num;

conta := conta + 1;

End;

media := (soma / 20);

if media > 8 then

Writeln ('media =10');

else

Writeln ('A media ‚');

Writeln (media);

End.

4. program triangulo;

var

area, base, altura: real;

begin

write ('Digite a base: ');

readln (base);

write ('Digite a altura: ');

readln (altura);

area:= (base*altura)/2;

writeln ('A area do triangulo e: ',area:10:2);

end.

5.Escrever um programa em Pascal que lê 3 valores a, b, c, e escreva os 3 valores em ordem crescente.

program ex8;uses crt;

var a, b, c, aux: integer;

beginclrscr;write('Informe o primeiro numero: ');readln(a);write('Informe o segundo numero: ');readln(b);write('Informe o terceiro numero: ');readln(c);if a>b then begin aux:=a; a:=b; b:=aux; end;if a>c then begin aux:=a; a:=c; c:=aux; end;if b>c then begin aux:=b; b:=c; c:=aux; end;writeln('Valores em ordem crescente: ', a:6, b:6, c:6);readkey;end.

6. Escrever um algoritmo/programa em Pascal que lê 5 valores para a, um de cada vez, e conta quantos destes valores são negativos, escrevendo esta informação.

program ex17;uses crt;

var i, a, cont: integer;

beginclrscr;cont:=0;for i:= 1 to 5 do    begin    write('Informe um valor: ');    readln(a);    if a<0 then cont:=cont+1;    end;writeln('Existem ',cont,' valores negativos.');readkey;end.

7. Escrever um algoritmo/programa em Pascal que lê um número e calcula e escreve o seu fatorial.

program ex26;uses crt;

var x, i: integer;fat: longint;

beginclrscr;write('Informe um numero: ');readln(x);fat:=1;for i:= 1 to x do    begin    fat:=fat * i;    end;writeln('O fatorial de ', x, ' e: ', fat);readkey;end.

8. Escrever um algoritmo/programa em Pascal que escreve a soma dos números múltiplos de 7 entre 100 e 200.

program ex21;uses crt;

var i, soma: integer;

beginclrscr;soma:=0;for i:= 100 to 200 do    begin    if i mod 7 = 0 then       begin       soma:= soma + i;       end;    end;writeln('A soma dos numeros multiplos de 7 de 100 a 200 e: ', soma);readkey;end.

Escrever um algoritmo/programa em Pascal que lê 5 pares de valores a, b,  todos inteiros e positivos, um par de cada vez, e com a < b, e escreve os inteiros pares de a até b, incluindo o a e b se forem pares.

program ex35;uses crt;

var i, j, a, b, aux: integer;

beginclrscr;for i:= 1 to 5 do    begin    write('Informe um n£mero: ');    readln(a);    write('Informe um n£mero: ');    readln(b);    if a>b then       begin       aux:=a;       a:=b;       b:=aux;       end;    for j:= a to b do        begin        if j mod 2 = 0 then writeln(j);        end;    end;readkey;

end.

10Program exercicio1 ;uses crt; { declarei essa uses para poder usar os comandos desta biblioteca}vari : integer; { variavel que sera usada no comando de repeticao e posicao do vetor}maior : integer;Vetor : array[1..10] of integer; { declarei o vetor, que vai armazenar 10 valores na posiçao de 1 a 10} Begin maior := 0; for i := 1 to 10 do {para 1 ate 10 faca} begin writeln(' informe o elemento :',i);{informe o elemento 1, porque i recebeu 1 e na proxima vez recebera mais 1} readln(vetor[i]); {le o valor e guarda na posicao 1 do vetor,dps na 2,3,4 ate chegar na 10} if Vetor[i] > maior then { Se o valor armazenado no vetor for maior do que 0 entao} maior := Vetor[i]; {maior recebe maior valor} end; {fim do for} writeln(' O maior valor eh ',maior); readkey; {aguarda uma tecla ser pressionada para sair do programa} End.

11. Escrever um algoritmo/programa em Pascal que lê um vetor V[6] e o escreve. Conte, a seguir quantos valores de V são negativos e escreva esta informação.

program ex47;uses crt;var v: array[1..6] of integer;i, cont: integer;beginclrscr;for i:= 1 to 6 do begin writeln('Informe o ', i ,'§ valor: '); readln(v[i]); end;for i:= 1 to 6 do begin writeln(v[i]); end;cont:=0;for i:= 1 to 6 do begin if v[i]<0 then begin cont:=cont+1; end;

end;writeln('Existem ',cont,' valores negativos.');readkey;end.