Algoritmo para ler 100 números inteiros e escrever a soma e a média dos números lidos.

//Faça um algoritmo para ler 100 números inteiros e escrever a soma e a média dos números lidos.}

program cemNumero;

uses crt;

var

i,soma,numero:integer;

media:real;

begin

writeln('Algoritmo para obter a soma e a media de cem numeros inteiro');

soma:=0;

for i:=1 to 100 do

begin

writeln(' Informe o numero',i ,' : ');

readln(numero);

soma:=soma + numero;

end;

media:= soma / 100;

writeln('soma = ',soma);

writeln('media = ',media);

readkey;

end.