progrma que recebe a média de cada aluno e armazena em um vetor, após isso, calcula a média geral da turma, mostra quem passou, ou seja, com média >=70 e quem nao passou.

• Download exerc15.pas
• Enviar nova versão

Esconder código-fonte

program exercicio15;

uses crt;

var
  nota: array[1..10] of real;
  contador, repr: integer;
  geral:real;

begin
  clrscr;

  geral:=0;
  repr:=0;

  For contador:= 1 to 10 do
  begin
    Write('Digite a nota do aluno ',contador:2,': ');
    readln(nota[contador]);
    geral:= geral+nota[contador];

    if nota[contador] < 7 then
      repr := repr+1;

 end;

  writeln;

  writeln('A media da classe foi: ',geral/10:0:2);

  writeln;

  writeln('A quantidade de alunos aprovados ‚: ',10-repr);
  writeln('A quantidade de alunos reprovados ‚: ',repr);

  readkey;
end.

Gerador de senha Pascal/Lazarus

controle de locadora

Menu

Editor de Texto feito no Lazarus(Delphi 7 para Linux)

Calculadora Empresarial Lazarus

Nenhum comentário foi encontrado.