Exercício 07 Matriz - Pascal

7) Construir um programa que, primeiro, leia duas notas de uma classe com cinco (5) alunos, depois calcule e imprima a média final de cada aluno, no final, imprima a quantidade de aprovados e reprovados, sabendo que a média é sete (7).

Program matriz07;
var
matriz:array[1..5,1..2] of integer;
i,j:integer;
media:array[1..5] of real;
Begin
    for i := 1 to 5 do
    for j := 1 to 2 do
        Begin
            Write('Aluno ',i,' Nota ',j,': ');
            readln(matriz[i,j]);
        End;
        
    for i := 1 to 5 do                    
            media[i]:=(matriz[i,1] + matriz[i,2])/2;
            
    Writeln('Alunos Aprovados');        
    for i := 1 to 5 do
        if (media[i] >= 7) then            
            Writeln('Aluno ',i,' Media: ',media[i]:0:2);        
End.

Categories: Pascal , Programação