Оператор For Опции

[Vic]

Помогите решить задачу. Использовать можно только For ...To...Do
Дано десять целых чисел. Найти разницу между минимальным из положительных и максимальным из отрицательных. ???

[fkhhj]

Элементарно

Код

Program z219;
   Var max,min,a,i,x,y:Integer;
Begin
    min:=32767;
    max:=-32768;
    For i:=1 To 10 Do
 begin
      Read(a);
      IF a>0 Then
                 IF a<min Then
                 begin
                      min:=a;
                      x:=min;
                 end;
      IF a<0 Then
                 IF a>max Then
                 begin
                      max:=a;
                      y:=max;
                 end;
 end;
Writeln(x-y);
END.

Сообщение отредактировано: volvo - 17.12.2004 20:50