Найти максимальное и минимальное значения среди элементов файла

@lion-6v · Регистрация: 19.12.2012

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

1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран.
2. Найти максимальное и минимальное значения среди элементов файла, созданного в задании 1, и полученные результаты записать в новый файл.

Kodzaev · 26.03.2013, 22:06

Это все в одной программе надо?

@lion-6v · 26.03.2013, 22:12 **[ТС]**

Да, в одной программе.

Добавлено через 4 минуты
А может и в 2 программах...

Kodzaev · 26.03.2013, 22:16

Сообщение от lion-6v

Да, в одной программе.

Pascal

Var
  f: File of Integer;
  x,i,n,min,max: Integer;
BEGIN
Randomize;
max:=Low(max);
min:=High(min);
Write('Vvedite kol-vo elementov: ');
Readln(n);
Assign(f,'1.dat');
Rewrite(f);
For i:=1 to n do
begin
  x:=Random(100);
  Write(f,x);
end;
Reset(f);
Writeln('Fail: ');
While not Eof(f) do
begin
  Read(f,x);
  If x>max Then max:=x;
  If x<min Then min:=x;
  Write(x,' ');
end;
Writeln;
Assign(f,'2.dat');
Rewrite(f);
Write(f,max);
Write(f,min);
Reset(f);
Writeln('Novii fail (MAX i MIN): ');
While not Eof(f) do
begin
  Read(f,x);
  Write(x,' ');
end;
Close(f);
Readln
END.

@lion-6v · 26.03.2013, 22:48 **[ТС]**

Не по теме:

Можете помочь написать эту программу: ?
Организовать файл записей HOSPITAL
P. S. Буду Вам бесконечно благодарен!

@Anubaral1ty · 02.06.2014, 21:01

будьте добры скриншот этой готовой программы ( Срочно нужен )

@Svager · 02.06.2014, 21:09

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

будьте добры скриншот этой готовой программы ( Срочно нужен )

а спину вареньем не намазать?
возьми запусти, и сделай скриншот .

@lion-6v 0 / 0 / 3 Регистрация: 19.12.2012 Сообщений: 93
		1
	Найти максимальное и минимальное значения среди элементов файла 26.03.2013, 22:03. Показов 1399. Ответов 6 Метки нет (Все метки) 1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. 2. Найти максимальное и минимальное значения среди элементов файла, созданного в задании 1, и полученные результаты записать в новый файл. 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	26.03.2013, 22:06	2
	Это все в одной программе надо? 0

@lion-6v 0 / 0 / 3 Регистрация: 19.12.2012 Сообщений: 93
	26.03.2013, 22:12 [ТС]	3
	Да, в одной программе. Добавлено через 4 минуты А может и в 2 программах... 0

@lion-6v
	26.03.2013, 22:48 [ТС] #5
	Не по теме: Можете помочь написать эту программу: ? Организовать файл записей HOSPITAL P. S. Буду Вам бесконечно благодарен! 0

@Anubaral1ty 0 / 0 / 0 Регистрация: 02.06.2014 Сообщений: 2
	02.06.2014, 21:01	6
	будьте добры скриншот этой готовой программы ( Срочно нужен ) 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	02.06.2014, 21:09	7
	Сообщение от Anubaral1ty будьте добры скриншот этой готовой программы ( Срочно нужен ) а спину вареньем не намазать? возьми запусти, и сделай скриншот . 0