SoloCodigo

Tuve abandonado este hilo mucho tiempo, muchas gracias por leer mis post y aun mas por comentar     

Trata  de marcar bien los bloques begin end.

Código: Text

1.  
2. for i:=1 to 5 do
3. begin
4.    Writeln ('ingrese otro valor para saber si es maximo o minimo');
5.    Readln (B);
6.    if b > max then
7.    begin
8.       max := b;
9.       c := c+1;
10.    end else
11.    if b<min then
12.    begin
13.       min := b;
14.       f := f+1;
15.    end;
16. end;
17.  
18.  

por sierto, el bloque if, else if, else no lleva el ; salgo al final

Código: Text

1.  
2. if a then
3. begin
4.    ...
5. end else
6. if b then
7. begin
8.     ...
9. end else
10. begin
11.    ...
12. end;
13.  
14.  

tambien he visto que lo hacen:

Código: Text

1.  
2. if a then
3. begin
4.    ...
5. end
6. else if b then
7. begin
8.     ...
9. end
10. else
11. begin
12.    ...
13. end;
14.  
15.  

Yo siempre us'e esta ultima, pero cuando vi la primera, resulta mas comoda ya que tenes menos posibilidad de equivocarte.

El problema que tenes en este programa es de logica, no se porque al final mandas a leer a readln(a), ni siquiera mandas un letrero men. y el otro error es que tenes una instruccion mal escrita que es sobre algo de colo, encerralo entre llaves y compilalo de nuevo. Me tome la molestia de corregirlo....

program programa1;
var
     max,min,a,b,c,f:real;
     i:integer;
begin
    writeln ('ingrese el primer valor');
     readln (a);
     c:=0;
     max:=a;
     min:=a;
     c:=c+1;
     f:=f+1;
     for i:=1 to 5 do
     begin
       writeln ('ingrese otro valor para saber si es maximo o minimo');
       readln (;

       if b>max then
          begin
          max:=b;
          c:=c+1;
          end
       else
          if b<min then
          begin
          min:=b;
          f:=f+1;
          end;
     end;

   writeln ('el valor maxaimo es:', max:0:2);
   writeln ('la posicion del valor maximo es:', c:0:2);
   writeln ('el valor minimo es:', min:0:2);
   writeln ('la posicion del valor minimo es:', f:0:2);
   readln;
end.