Найти разность между максимальным и минимальным элементами в файле

@radma · Регистрация: 06.12.2012

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

Дан текстовый файл, содержащий целые числа. Найти разность между максимальным и минимальным элементами в файле, то же для каждой строки файла

@DmitryIbragimov · 04.04.2013, 18:41

Вот программа. Текстовый файл input.txt с числами должен быть с ней в одной папке.

Pascal

var f:text;
    a,max,min,rez:integer;
begin
 assign(f,'input.txt');
 reset(f);
 max:=0; min:=9999;
 while not eof(f) do //цикл, который будет работать, пока не встретится конец файла
  begin
   readln(f,a);
   if max<a then max:=a;
   if min>a then min:=a;
  end;
 rez:=max-min;
 writeln('MAX = ',max,'  MIN = ',min);
 writeln('Разность равна: ',rez);
 readln; end.

@radma 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 9
		1
	Найти разность между максимальным и минимальным элементами в файле 04.04.2013, 18:27. Показов 2223. Ответов 1 Метки нет (Все метки) Дан текстовый файл, содержащий целые числа. Найти разность между максимальным и минимальным элементами в файле, то же для каждой строки файла 0

Опции темы

Найти разность между максимальным и минимальным элементами в файле

Решение