var

      nota : array[1..50] of real;
      maior, menor : real;
      i : integer;

begin

      writeln('Digite os 50 valores:');
      for i:= 1 to 50 do           
           read(nota[i]);
           
      maior := nota[1];
   
      for i:= 2 to 50 do           
           if nota[i] > maior then
              maior := nota[i];

      writeln('Maior: ',maior);
     
      menor := nota[1];     
     
      for i:= 2 to 50 do           
           if menor > nota[i] then
              menor := nota[i];
     
      writeln('Maior: ',menor);
     
      writeln('Valores lidos');
      for i:= 1 to 50 do           
       writeln('valor [',i,'] = '.nota[i]);      

end.

var
maior, menor, media, num, cont:real;
op:char;
begin
cont:=0;
repeat
Writeln('Entre com um número');
readln(num);
if cont=0 then begin   {está na primeira iteração}
          maior:=num;
          menor:=num;
          end;
if num>maior then maior:=num;
if num<menor then menor:=num;
media:=media+num;  {soma se todos os valores para depois dividir pelo contador e dar a media}
cont:=cont+1;
writeln('Deseja entrar com mais numeros? (S/N)');
op:=UPCASE(readkey);
until op='N';
media:=media/cont;
writeln('maior ',maior:0:2,' menor ',menor:0:2,' media ',media:0:2);
end.

program Menor_e_Media;

var
   i, menor, media, atual: integer;
begin
   menor := 99999999;
   media := 0;
   for i := 1 to 10 do
   begin
      WriteLn('Entre com um número');
      ReadLn(atual);
      if atual < menor then
         menor := atual;
      media := media + atual;
   end;
   media := media div i;
   WriteLn('Menor Número ' + menor);
   WriteLn('Média ' + media);
end.

Program mamemed;
uses wincrt;

var
maior, menor, media, num:real;
cont:integer;
begin
for cont:=1 to 10 do begin
    Writeln('Entre com o ',cont,'º número.');
    readln(num);
    if cont=1 then begin   {está na primeira iteração}
          maior:=num;
          menor:=num;
          end;
    if num>maior then maior:=num;
    if num<menor then menor:=num;
    media:=media+num;  {soma se todos os valores para depois dividir pelo contador e dar a media}
    clrscr;
end;
media:=media/10;
writeln('maior ',maior:0:2,' menor ',menor:0:2,' media ',media:0:2);
end.