Programa com Pascal__(Calcular_Media_da_Turma).

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program Calcular_Media_da_Turma;
var MD: ARRAY[1..8] OF REAL;
 SOMA, MEDIA: REAL;
 I: INTEGER;
Begin
 SOMA:=0;
			Writeln ('Cálculo de média escolar: ');
			writeln;
			For I:= 1 to 8 do
			begin 
			 write('Informe a ', I,'a. nota: ');
				 readln(MD[I]);
				 soma:=soma+MD[I];
			end;
			media:=soma/8;
			writeln;
			writeln(' A média do grupo equivale a: ', Media:2:2);
			writeln;
			writeln ('Tecle <ENTER> para encerrar: ');
			Readkey;	 
End.