Turbo Pascal

[glavad]

Народ помогите плиз решить 3 задачки. я их решил,но оказалось что надо через внешний файл.Если можно решение,и что писать в внешнем файле.
Только полное решение=)

1) Дан массив x1,...,x100. Найти сумму элементов от х1 до хmin.

2)Даны массивы : N1,...,N5- номерные знаки автомашин;L1,...,L5- пробеги за месяц в км;T1,...,T5- отработанные часы в течение месяца; Напечатать два списка: 1)Список автомашин, у которых среднесуточный пробег за месяц менее 300км; 2) Список автомашин, у которых среднесуточное время в наряде более 10 ч.

3)Для матрицы С[5х6] образовать ряд, состоящий из индексов максимальных элементов, найденных в каждой строке. В каждом столбце с номером из образованного ряда поменять местами первый и последний элемент.

Все,буду ждать,заранее спасибо.

[glavad]

Up.....................

[IT-man]

3 же уже была????

[glavad]

они все были=( Но сори,я не знал что нужно через внешний файл. Если можно выручите.

[IT-man]

{Дан массив x1,...,x100. Найти сумму элементов от х1 до хmin.}
var f,f1:text;
  x:array[1..100] of integer;
  i,im,min:integer;
begin
assign(f,'input.txt');
assign(f1,'output.txt');
Reset(f);
for i:=1 to 100 do
readln(f,x[i]);
close(f);
min:=x[1];im:=1;
for i :=1 to 100 do
if x[i]>min then begin min:=x[i];im:=i;end;
for i:=2 to im do
x[1]:=x[1]+x[i];
rewrite(f1);
write(f1,x[1]);
close(f1);
end.

{2)Даны массивы : N1,...,N5- номерные знаки автомашин;
L1,...,L5- пробеги за месяц в км;
T1,...,T5- отработанные часы в течение месяца; Напечатать два списка: 
1)Список автомашин, у которых среднесуточный пробег за месяц менее 300км;
2) Список автомашин, у которых среднесуточное время в наряде более 10 ч.}
var f,f1:text;
  l,t:array[1..5] of integer;
  n:array[1..5] of string;
  i,im,min:integer;
begin
assign(f,'input.txt');
assign(f1,'output.txt');
Reset(f);
Rewrite(f1);
for i:=1 to 5 do
readln(f,n[i]);
for i:=1 to 5 do begin
readln(f,l[i]);
if l[i]/30 <300 then writeln(f1,n[i]);end;
Writeln(f1,'---------------------------');
for i:=1 to 5 do begin
readln(f,t[i]);
if t[i]/30 >10 then writeln(f1,n[i]);end;
close(f);
close(f1);
end.

{Для матрицы С[5х6] 
образовать ряд, состоящий из индексов максимальных элементов,
 найденных в каждой строке. В каждом столбце с номером из
 образованного ряда поменять местами первый и последний элемент.}
var f,f1:text;
  c:array[1..5,1..6] of integer;
  n:array[1..5] of integer;
  i,jm,max:integer;
begin
assign(f,'input.txt');
assign(f1,'output.txt');
Reset(f);
Rewrite(f1);
for i:=1 to 5 do
for j:=1 to 6 do
 read(f,c[i,j]);
 close(f);
for i:=1 to 5 do begin
max:=c[i,1];n[i]:=1;
For j:=2 to 6 do 
if c[i,j]>max then begin max:=c[i,j] n[i]:=j; end;
end;
for i:=1 to 5 do begin
 jm:=c[1,n[i]];
 c[1,n[i]]:= c[5,n[i]];
 c[5,n[i]]:=jm;
end;
 for i:=1 to 5 do begin
For j:=1 to 6 do 
write(f1,c[i,j]);
Writeln(f1);
end;
close(f1);
end.

что писать в внешнем файле

в файле 'input.txt':
для 1) 100 целых чисел в столбик
для 2 ) в один столбик
5 номеров машин
5 целых чисел(пробег)
5 целых чисел(часы)
для 3) 30 целых чисел через пробел