Leia um vetor de 20 valores, que representam alturas de pessoas e: a) Calcule a média aritmética destas alturas; b) Conte quantas pessoas possuem altura acima da média.
program alturas; type vetor=array[1..20] of real; var altura:vetor; i,quant:integer; med,soma:real; begin quant:=0; soma:=0; for i:=1 to 20 do begin writeln('Insira a altura'); readln(altura[i]); soma:=soma+altura[i]; media:=soma/20; if(altura[i]>media)then begin quant:=quant+1; end; end; writeln('a media das alturas e',media); writeln('pessoas que possuem altura acima da media e',quant); readln; end.
Begin cont:=0; media:=0; for I:= 1 to 20 do begin readln(A[I]); end; for I:= 1 to 20 do begin media:= (media + A[I])/ I; if A[I] > media then cont:= cont + 1; end; writeln('A média de idade é: ', media); writeln('O nº de pessoas acima da média é: ', cont);
begin clrscr; cont:=0; soma:=0; for i:=1 to 20 do begin writeln('Insira a altura'); readln(alt[i]); soma:=soma+alt[i]; end; media:=soma/20; for i:=1 to 20 do begin if(alt[i]>media)then begin cont:=cont+1; end; end; writeln(media:2:2,'m',' � a m‚dia das alturas'); writeln(cont,' Pessoas possuem alturas acima da media'); readln; readln; end.
Begin soma:=0; tpx:=0; writeln ('Digite Altura'); for i:= 1 to 20 do Begin readln (a[i]); soma:= soma + a[i]; end; media:=soma/20 for i:= 1 to 20 do If a[i]>= media then Tpx:= tpx+1 writeln ('A Media das Alturas:',media); writeln ('Pessoas Acima da Media:',tpx); readln; end.
Oi grupo BDVIS, ainda faltam alguns alunos postarem as respostas dos exercícios aqui no blog de vcs. Por favor, fale com seus colegas que eles precisam postar as respostas aqui no blog de vcs. Abraços!! Professora Aline
Program exercicio05; uses crt; type Vetora= array [1..20] of real;
var a: vetora; i,alto: integer; soma, media: real;
Begin textbackground(7); textcolor(4); soma:=0; alto:=0; for i:= 1 to 20 do Begin writeln ('Digite Altura'); readln (a[i]); soma:= soma + a[i]; end; media:=soma/20 for i:= 1 to 20 do If a[i]>= media then alto:= alto+1 writeln ('A Media das Alturas:',media); writeln ('Pessoas Acima da Media:',alto); readln; end.
Queridos alunos, gostaria que vcs ajudassem aos colegas a responderem aos desafios nos blogs. Apresentem ideias, sugestões, dicas de como poderão resolver os desafios.
Resposta postada por ***MAIARA C.***
ResponderExcluirprogram alturas;
type
vetor=array[1..20] of real;
var
altura:vetor;
i,quant:integer;
med,soma:real;
begin
quant:=0;
soma:=0;
for i:=1 to 20 do
begin
writeln('Insira a altura');
readln(altura[i]);
soma:=soma+altura[i];
media:=soma/20;
if(altura[i]>media)then
begin
quant:=quant+1;
end;
end;
writeln('a media das alturas e',media);
writeln('pessoas que possuem altura acima da media e',quant);
readln;
end.
Taffarel Ribeiro.
ResponderExcluirProgram media_alturas;
type
vetorA = array [1..20] of real;
var
A:vetorA;
media, cont: real;
I:integer;
Begin
cont:=0;
media:=0;
for I:= 1 to 20 do
begin
readln(A[I]);
end;
for I:= 1 to 20 do
begin
media:= (media + A[I])/ I;
if A[I] > media then
cont:= cont + 1;
end;
writeln('A média de idade é: ', media);
writeln('O nº de pessoas acima da média é: ', cont);
end.
Samuel Medeiros Braga
ResponderExcluirprogram altura;
type
vetor=array[1..20] of real;
var
alt:vetor;
i,cont:integer;
media,soma:real;
begin
clrscr;
cont:=0;
soma:=0;
for i:=1 to 20 do
begin
writeln('Insira a altura');
readln(alt[i]);
soma:=soma+alt[i];
end;
media:=soma/20;
for i:=1 to 20 do
begin
if(alt[i]>media)then
begin
cont:=cont+1;
end;
end;
writeln(media:2:2,'m',' � a m‚dia das alturas');
writeln(cont,' Pessoas possuem alturas acima da media');
readln;
readln;
end.
:Gabriel:
ResponderExcluirProgram Kill;
type
Vetora= array [1..20] of real;
var
a: vetora;
i,tpx: integer;
soma, media: real;
Begin
soma:=0;
tpx:=0;
writeln ('Digite Altura');
for i:= 1 to 20 do
Begin
readln (a[i]);
soma:= soma + a[i];
end;
media:=soma/20
for i:= 1 to 20 do
If a[i]>= media then
Tpx:= tpx+1
writeln ('A Media das Alturas:',media);
writeln ('Pessoas Acima da Media:',tpx);
readln;
end.
Oi grupo BDVIS, ainda faltam alguns alunos postarem as respostas dos exercícios aqui no blog de vcs. Por favor, fale com seus colegas que eles precisam postar as respostas aqui no blog de vcs.
ResponderExcluirAbraços!!
Professora Aline
Mateus
ResponderExcluirProgram exercicio05;
uses crt;
type
Vetora= array [1..20] of real;
var
a: vetora;
i,alto: integer;
soma, media: real;
Begin
textbackground(7);
textcolor(4);
soma:=0;
alto:=0;
for i:= 1 to 20 do
Begin
writeln ('Digite Altura');
readln (a[i]);
soma:= soma + a[i];
end;
media:=soma/20
for i:= 1 to 20 do
If a[i]>= media then
alto:= alto+1
writeln ('A Media das Alturas:',media);
writeln ('Pessoas Acima da Media:',alto);
readln;
end.
Queridos alunos,
ResponderExcluirgostaria que vcs ajudassem aos colegas a responderem aos desafios nos blogs. Apresentem ideias, sugestões, dicas de como poderão resolver os desafios.
Abraços!!
Professora Aline