Задача на файлы

[nastasiya79]

Уважаемые программисты!очень нужна ваша помощь.


Создать файл из 150 целых чисел, лежащих на отрезке [35,4000], используя генератор случайных чисел.
-Вывести все данные на экран.
-Вывести все числа, взаимно простые с своими соседями.
-Найти наибольшее среди составных чисел.

[type_Oleg]

Сообщение от nastasiya79

..чисел, лежащих на отрезке [35,4000], используя генератор случайных чисел..

x[i]:=35+Random(3966);  // в цикле конечно

А лучше так

const 
 XMIN=35;
 XMAX=4000;
begin
// ....
 x[i]:=XMIN+Random(XMAX-XMIN+1);

[nastasiya79]

я вот так начала, но не могу понять,как дальше..и как цикл на взаимно простые числа задать
program project1;
var f:file of integer;
x,k,m,n,i:integer;
c:real;

Procedure vvod;
begin
for i:=1 to n do
begin
x:=random(3966)+35;
write(f,x);
end;
end;
Procedure print;
begin
reset(f);
while not eof(f) do
begin
read(f,x);
write(x,'_');
end;
close(f);
end;
Procedure vzaimnopr;
begin
reset(f);
while not eof(f) do
begin
read(f,x);
for i:=2 to n do
begin
x:=n;k:=i;
while k<>x do
if k>x then k:=k-x else x:=x-k;
if (k=1)or(x=1) then writeln(i,' ');
end;
end;
end;
Begin
assign(f,'file.dat');
rewrite(f);
writeln('vvedite kol-vo cel chisel');
readln(n);
randomize;
vvod;
writeln('vse chisla: ');
print;
vzaimnopr;
writeln;
readln;
End.