Algoritmo 5 valores

[DSR1]

Estou precisando de ajuda novamente, gostaria de saber aonde errei nesse algoritmo, desde já agradeço.

Desenvolva um programa que leia 5 valores numéricos e, em seguida, determine:

a) a somatória deles;

a média deles;

c) se eles são pares ou ímpares;

d) qual o maior número digitado;

e) qual o menor número digitado.

Program valores;
uses crt;
var               soma,a,b,c,d,e:integer;
                             media:real;

Begin

                 clrscr;
                 writeln ('Digite 5 valores numérico');
                 readln (a,b,c,d,e);
                 soma:= a+b+c+d+e;
                 media:= soma/5;
                 if soma:= (media mod 5) then;
                 writeln ('Esse numero é PAR')
                 else
                 writeln ('Esse numero é ÌMPAR');
                 readkey
                 End.

Você já foi avisado algumas vezes para utilizar tags

 para separar texto de código tornando o texto mais legível.[/color][/i]

[Ricardo HD]

Olá DRS1 seu programa esta apenas iniciado gostaria que terminasse e se tiver duvida poste para podermos corrigir o erro, vou te passar um exemplo de como descobrir se o numero é par ou impar.

VAR num, r: INTEGER;

BEGIN

CLRSCR;

WRITELN('Digite um numero: ');

READLN(num);

r := num MOD 2;

IF (r = 0)

THEN WRITELN('O numero ‚ par')

ELSE WRITELN('O numero ‚ ¡mpar');

READLN;

END.

para você descobrir o > ou < uma forma é você declarar uma variavel auxiliar e percorrer um por um dos valores para saber qual o maior, ou o menor.

P.S

Tente fazer se houver erros poste, mas não poste o exercicio para resolvermos por você.

Espero ter ajudado, se houver duvida no programa final poste novamente.

[Visitante: lexos2]

e fazendo com for?

[DSR1]

Olá DRS1 seu programa esta apenas iniciado gostaria que terminasse e se tiver duvida poste para podermos corrigir o erro, vou te passar um exemplo de como descobrir se o numero é par ou impar.

para você descobrir o > ou < uma forma é você declarar uma variavel auxiliar e percorrer um por um dos valores para saber qual o maior, ou o menor.

P.S

Tente fazer se houver erros poste, mas não poste o exercicio para resolvermos por você.

Espero ter ajudado, se houver duvida no programa final poste novamente.

Ricardo, muito obrigado por ter me ajudado estou começando agora e ainda estou meio perdido,consegui modificar o programa mas não consigo fazer ele somar os numeros digitados e se ele são par e impar você pode me ajudar?

Program valores;

uses crt;

var

maior, menor, media, num:real;

a,b,c,r,icont:integer;

begin

for cont:=1 to 5 do begin

Writeln('Entre com o ',cont,'º número.');

readln(num);

if cont=1 then begin

maior:=num;

menor:=num;

end;

if num>maior then maior:=num;

if num<menor then menor:=num;

media:=media+num;

end;

media:=media/5;

writeln('maior ',maior:0:2,' menor ',menor:0:2,' media ',media:0:2);

end;

begin

for i:=1to 5 do

begin

write('A soma dos nos numeros digitados é:');

readln(a,b,c,d,e);

soma:=a+b+c+d+e;

r:=soma mod 2;

if(soma=0)then;

write('O numero é Par')

Else

write('O numero é Impar');

readln;

End.