neste script o objetivo é calcular quantos porcentos, de um vetor com dez idades, sao maiores de idade.

• Download exerc06.pas
• Enviar nova versão

Esconder código-fonte

Program exercicio06;

uses crt;

Var
  idade          : array[1..10] of integer;
  contador, soma : integer;

Begin
  clrscr;

  Soma:= 0;

  For contador := 1 To 10 do
  Begin
    Write('Digite a ',contador:2,'§ idade: ');
    Readln (idade[contador]);

    if idade[contador] > 17 then
      Soma:= soma+1;
  end;

  writeln(soma*10, '% de pessoas sÆo maiores de idade');

  Readkey;

End.

Cáculo de Fatorial, utilizando-se de Repeat - Until

Calculadora de notas (Pascal)

Calculadora de cargas

validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.

Achar o maior e o menor valor inserido pelo usuario