Variaveis
Contador: Inteiro
N,Soma, Media :Real
Inicio
Contador ¬ 0
Soma ¬ 0
Enquanto Contador < 20 faca
Leia (N)
Soma ¬ Soma + N
Contador ¬ Contador + 1
Fim Enquanto
Media ¬ Soma / 20
Se Media > 8 Entao
Media ¬ 10
Fim Se
Escreva (Media)
Fim
Em Pascal:
Program MEDIA_20;
Uses crt;
var
conta:integer;
media,num,soma:real;
Begin
Clrscr;
conta := 0;
soma := 0;
Writeln ('Digite 20 numeros');
While conta < 20 do
Begin
read (num);
soma := soma + num;
conta := conta + 1;
End;
media := (soma / 20);
if media > 8 then
Writeln ('media =10');
else
Writeln ('A media ‚');
Writeln (media);
End.
Para escrever sua resposta aqui, entre ou crie uma conta
Algoritmos e Programação de Computadores
•UNOPAR
Compartilhar