média de uma turma

Publicado por NewLinuxer 13/12/2005

[ Hits: 3.720 ]

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

Calculadora utilizando until e case

Número primo

Calculadora de notas (Pascal)

Existência de triângulo, em Pascal

Media dos Alunos


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts