média de uma turma

Publicado por NewLinuxer 13/12/2005

[ Hits: 4.206 ]

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

dizer se o aluno passou ou nao

Executar comando do DOS.

armazenar estoque em uma matriz

Eleições 2006

Existência de triângulo, em Pascal


  

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