1) Desenvolver um programa de computador.

Em qual linguagem? Entrar em contato. 81 9 9701 1759.

em bloco

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.