Типизированные файлы. Напечатать n-ый элемент

@Oneill · Регистрация: 30.11.2011

Студворк — интернет-сервис помощи студентам

Привет помогите с задачкой пожалуйста.

Дан типизированный файл, элементами которого являются числа. Напечатать n-ый элемент. Который будет вводится с клавиатуры...

Заранее благодарен!

@CodeR · 18.06.2012, 11:10

Pascal

Var f:file of integer;
    i,m,n:integer;
Begin
    write('Кол-во элементов файла: ');readln(m);
    Randomize;
    Assign(f,'a.dat');Rewrite(f);
    For i:=1 to m do
     Begin
      n:=random(11)-5;
      write(f,n);
      write(n:3);
     End;
    writeln;
    Reset(f);
    Repeat
     write('Введите n: ');readln(n);
     Seek(f,n-1);
    Until n-1<=m;
    read(f,n);
    writeln('N-ый элемент: ',n);
    readln;
End.

@Oneill 5 / 5 / 1 Регистрация: 30.11.2011 Сообщений: 238 Записей в блоге: 1
		1
	Типизированные файлы. Напечатать n-ый элемент 18.06.2012, 10:45. Показов 991. Ответов 1 Метки нет (Все метки) Привет помогите с задачкой пожалуйста. Дан типизированный файл, элементами которого являются числа. Напечатать n-ый элемент. Который будет вводится с клавиатуры... Заранее благодарен! 0

	18.06.2012, 11:10

Опции темы

Типизированные файлы. Напечатать n-ый элемент

Решение