Programção e algoritmo

1) Efetue a leitura de um número inteiro positivo ou negativo, e apresente o módulo desse numero.

programmodulonumero; usescrt; var c :integer;
Begin
clrscr; writeln('Digite um n – ou +'); readln(c); if c < 0 then begin c := c * (-1); writeln ( 'O modulo é: ', c); end else begin writeln ( 'O modulo é :' , c); end; End.

2) Efetue a leitura de 4 números inteiros, e apresentar os números que são divisíveis por 2 e por 3.

program divisor; usescrt; var D, I, V, S: integer; begin clrscr; write('Informe o valor de (D) : '); readln(D); write('Informe o valor de (I) : '); readln(I); write('Informe o valor de (V) : '); readln(V); write('Informe o valor de (S) : '); readln(S); begin if ((D mod 2) = 0) and ((D mod 3) = 0)then writeln(D, ' divisivel por 2 e 3.'); if ((I mod 2) = 0) and ((I mod 3) = 0)then writeln(I, ‘divisivel por 2 e 3.'); if ((V mod 2) = 0) and ((V mod 3) = 0)then writeln(V, ' divisivel por 2 e 3.'); if ((S mod 2) = 0) and ((S mod 3) = 0)then writeln(S, ' divisivel por 2 e 3.'); end; end. 3) Crie uma matriz de 10 posições do tipo inteiro, solicite ao usuário o preenchimento da mesma. Após o preenchimento apresenta o maior e o menor valor existente na matriz.

programMenor_Maior; usescrt; var maior, menor,cont : integer; vet : array[1..10] ofInteger;
Begin
writeln('digite 10 n inteiros'); forcont:=1 to 10 do begin readln(vet[cont]); ifvet[cont] > maior then begin maior:= vet[cont]; end; ifvet[cont] < menor then begin menor:= vet[cont]; end; end; writeln('O maior n eh: ',maior); writeln('O menor n eh: ',menor); End.

4) Crie uma matriz “A” de 20 posições do tipo inteiro, e uma outra matriz “B” de tamanho 5 também do tipo inteiro. Solicite ao usuário o preenchimento da matriz “A”. Somente após o preenchimento dessa matriz calcule a média dos valores digitados. De posse dessa média procure na matriz “A” 5