Exercícios com ARRAYS - (Pascal)
Program Media_Notas;
{este programa recebe tres notas, soma-as, tira a média
e as devolve pra tela}
var
num: array [1..3] of integer;
soma,media:real;
i:integer;
Begin
writeln ('digite as tres notas');
soma:=0;
for i:=1 to 3 do {Aqui entram as notas na variável)
read (num[i]);
for i:=1 to 3 do {Aqui soma-se as notas)
soma:=(num[i]+soma);
media:=(soma/3);
for i:=1 to 3 do {Aqui saem as notas na variável)
writeln ('As notas de entrada são: ',num [i]);
writeln;
writeln('A soma da notas é: ',soma:2:2);
writeln;
writeln('A média das notas é: ',media:2:2);
End.
xxxxxxxxx---xxxxx---xxxxxx-xxxxx-xxxx-xxx-x-x-xx--x
{Desenvolver programa que leia 4 nomes
para uma matriz armazene e apos armazenar todos apresente cada um deles.}
Program lista_nomes;
var
nome: array [1..4] of string;
I: integer;
begin
writeln ('listagem de alunos');
writeln;
for i:= 1 to 4 do
begin
write ('Digite o Nome:');
readln (nome [i]); {Aqui entra os nomes dos alunos}
end;
for i:= 1 to 4 do
writeln ('Nomes: ', Nome [i]); {Aqui sai os nomes dos alunos}
end.
