Baixe o app para aproveitar ainda mais
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.
Compartilhar