Respostas
respondido por:
1
Resposta:
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.
Perguntas similares
3 anos atrás
3 anos atrás
5 anos atrás
5 anos atrás
7 anos atrás
7 anos atrás