média de uma turma

Publicado por NewLinuxer 13/12/2005

[ Hits: 4.188 ]

Download exerc14.pas




programa que recebe a primeira no e a segunda, armazenando-as em vetores separados, para 10 alunos, e ao final mostra a média de cada aluno.

  



Esconder código-fonte

program exercicio14;

uses crt;

Type
  vetor=array[1..10] of integer;

var
  nota1, nota2: vetor;
  contador: integer;

begin
  clrscr;
  For contador:= 1 to 10 do
  begin
    Write('Digite a primeira nota do aluno ',contador:2,': ');
    readln(nota1[contador]);
  end;

  writeln;

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

  writeln;

  For contador:= 1 to 10 do
    Writeln('A media do aluno ',contador,' e:',(nota1[contador]+nota2[contador])/2:2:2);

  readkey;
end.

Scripts recomendados

Gerador de senha Pascal/Lazarus

Maior numero do Vetor

Funções strings e matemáticas

Calculo de la Moda

dizer se o aluno passou ou nao


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts