Как с помощью команды seek найти минимальный элемент в типизированных файлах

@Snubbery · Регистрация: 27.05.2012

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

Как с помощью команды seek найти минимальный элемент в типизированных файлах?

@H@ker · 13.06.2012, 20:49

Pascal

min:=amax;
For i:= 0 to num do
begin
seek(f,i);
read(f,a);
if a<min then min:=a
end;

Здесь:
amax - самое большое число в файле (или такое число, которое заведомо больше любого или большинства чисел из файла);
num - количество символов (элементов) в файле;
f - сам файл.

@Snubbery 0 / 0 / 0 Регистрация: 27.05.2012 Сообщений: 9
		1
	Как с помощью команды seek найти минимальный элемент в типизированных файлах 12.06.2012, 21:44. Показов 1471. Ответов 1 Метки нет (Все метки) Как с помощью команды seek найти минимальный элемент в типизированных файлах? 0

	13.06.2012, 20:49

Как с помощью команды seek найти минимальный элемент в типизированных файлах

Решение