Question

Crie um programa em Pascal que permita calcular a média aritmética de 4 valores introduzidos pelo utilizador.

Answer 1

program media;

var valor1, valor2, valor3, valor4 : integer;
    media : real;

begin
      write('digite o valor 1: ');
      readln(nota1);
      write('digite o valor 2: ');
      readln(nota2);
      write('digite o valor 3: ');
      readln(nota3);
      write('digite o valor 4: ');
      readln(nota4);
     
      media := (valor1 + valor2 + valor3 + valor4) / 4;

      writeln('Media = ', media:6:2);

      readln();
end.