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.

• Download exerc14.pas
• Enviar nova versão

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.

Crivo de Eratóstenes Simples em Ada 95

encontrar o maior e o menor valor em um vetor

diferença entre o maior e o menor numero

Jogo Sudoku em Pascal

Calculadora de décimo terceiro no Lazarus

Nenhum comentário foi encontrado.