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.

Calculadora usando procedures

Calculadora Empresarial Lazarus

Gerador de Senha no Lazarus

dizer se o aluno passou ou nao

Registro