Developing.ru

var
f, a:array[1..14] of integer;
i, ind, n:byte;
sum:word;
begin
ind:=0; sum:=0;
Randomize;
for i:=1 to 14 do
f:=Random(30000);
n:=Random(14);
for i:=1 to n do
f:=-f;
for i:=1 to 14 do
if f<0 then
begin
inc(ind);
a[ind]:=f;
end;
for i:=1 to n do
sum:=sum + a;
Writeln(sum); sum:=1;
for i:=1 to n do
if a[sum]>a then sum:=i;
Writeln(sum);
end.
Помогите сделать через внешний файл!!!

См. ответы вам же в других темах