exercicios de algoritimos pascal 1 a 5

1) Faça um algoritmo que receba um array de inteiros com 10 posições e retorne a quantidade de elementos do array que são números negativos.
2) Faça um programa em Pascal que carregue um vetor de seis elementos numéricos inteiros, calcule e mostre: a) A quantidade de números pares; b) Quais os números pares; c) A quantidade de números ímpares; d) Quais os números ímpares.
3) Faça um programa em Pascal que carregue um vetor com dez números reais, calcule e mostre a quantidade de números negativos e a soma dos números positivos desse vetor.
4) Faça um programa em Pascal que dada um vetor de 50 números, imprimi-lo na ordem inversa à da leitura.
5) Faça um programa em Pascal que carregue um vetor com 15 posições, calcule e mostre: a) O maior elemento do vetor e em que posição esse elemento se encontra; b) O menor elemento do vetor e em que posição esse elemento se encontra.

------------------------------------------------------------------------------------------------------------------------

program Exercicio_01;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils;

var numero : array[1..10] of integer; i, cont:integer;

begin for I := 1 to 10 do begin write('Digite um número inteiro: '); readln(numero[i]); end;

for I := 1 to 10 do if numero[i] < 0 then cont := cont + 1;

writeln; write('O total de número negativos é ',cont);

writeln; writeln; write('Pressione ENTER para encerrar...'); readln; end. program Exercicio_02;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils;

// Faça um programa em Pascal que carregue um vetor de seis elementos numéricos
// inteiros, calcule e mostre:
// a) A quantidade de números pares;
// b) Quais os números pares;
// c) A quantidade de números ímpares;
// d) Quais os números ímpares.

var numero : array[1..6] of integer; i, cont, cont2:integer;

begin for I := 1 to 6 do begin write('Digite um número inteiro: '); readln(numero[i]);