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

[Vic]

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

[Kolan]

Вот:

Код

program raz;
uses crt;
type
 mas = array[1..10] of integer;
const
 n=10;

{***}
procedure vvod(var a:mas);
var
i:integer;
begin
 randomize;
 for i:=1 to n do
   a[i]:=random(10)-4;
end;
{***}
procedure vivod(a:mas);
var
i:integer;
begin
 for i:=1 to n do
 writeln(a[i]:3);
end;
{***}
procedure findraz(a:mas; var raz:integer);
var
i:integer;
minp,maxot:integer;
begin

 minp:=1000;
 maxot:=-1000;
 for i:=1 to n do
 begin
   if a[i]>0 then
     if a[i]<minp then minp:=a[i];
  if a[i]<0 then
     if a[i]>maxot then maxot:=a[i];
 end;
raz:=minp-maxot;

end;
{***}

var
a:mas;
rez:integer;
begin
clrscr;
Writeln('press <Enter>');
readln;
vvod(a);
vivod(a);

readln;
findraz(a,rez);
writeln('Raznops t= ',rez);
readln;
end.

;)

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