algor. matriz pascal

[EdnaAparecida 0]

Tenho dois exericios em pascal de matriz e vetor e não ha quem faça eu finalia-los pois não vejo uma maneira de apresentar os resultados. sendo eles não mostra o maior e menor valor conforme copia abaixo me ajude por favor.

 

1- programa mostrar a soma de 10 idades, a maior e a menor idade digitada.

program idade_me_ma_for;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var
 idade_maior, idade_menor,idade,cont:integer;
 soma:real;

begin
 for cont:= 1 to 10 do

begin
  writeln ('Digite a idade');
  readln(idade);
end;

begin
idade_menor:= idade;
idade_maior:=idade;
end;

 if idade < idade_menor then

 begin
      idade_menor:=idade;
     end;
 begin
     if idade > idade_maior then
     begin
       idade_maior:=idade;
     end;
end;


 begin
   writeln ('a menor idade e:',idade_menor);
  writeln ('a maior idade e:',idade_maior);
  writeln('a soma das idade e:', soma:2:2);
  writeln ('Tecle enter para sair');
  readln;
 end;

end.

 

2- Programa mostrar a temperatura em graus celsiu em uma matriz a com 20 elementos mostrar a maior e a menor temperatura.

program temperaturavetor;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var
   a: array [1..20] of integer;
    i: integer;
 temp,temp_menor, temp_maior, c: real;

begin
 temp_maior:=0;
 for i:=1 to 20 do
  begin
     writeln ('Escreva valor de a',i);
     readln(a[i]);
  end;

  for i:= 1 to 20 do
  begin

      C:= 5/9 * (a[i]-32);
     writeln(a[i]:6, c:12:2);
      temp:=c ;
 end;
if i=0 then

begin
 temp_menor:=temp;
 temp_maior:=temp;
end
else
 if temp < temp_menor then

begin
 temp_menor:=temp;
end;

 if temp > temp_maior then
   begin
    temp_maior:=temp;
   end;

  begin
 writeln ('A  menor temperatura digitada foi:',temp_menor:2:2);
 writeln ('A  maior temperatura digitada foi:',temp_maior:2:2);
    writeln ('tecle enter para sair');
  readln;
 end;
end.

como informado no incio eles não apresentam os valores maiores e menores corretamente e sim ou pegam o ultimo valor e/ou respondem com zeros. nunca encergam corretamente como fiz varias tentativas resolvi recorrer a este forum grata.

 

 

Edna

[quitZAUMMM 18]

ql os valores de maior e menor???

você ainda n tem, faça a leitura da primeira idade e jogue nessas 2 variaveis.. nas proximas leituras faça as comparações;

 

[]s

[johnnyNT 0]

Posso fazer em PORTUGOL????

[EdnaAparecida 0]

ql os valores de maior e menor???

você ainda n tem, faça a leitura da primeira idade e jogue nessas 2 variaveis.. nas proximas leituras faça as comparações;

 

[]s

apos eu digitar os 10 valores o programa tem que comparar e mostrar a maior e menor idade com wille e repeat eu consigo não funcionou com for.

 

Posso fazer em PORTUGOL????

sim.