Вычислить произведение максимальной и минимальной компоненты файла

@Nastushka95 · Регистрация: 30.09.2013

Создать файл File1, компонентами которого являются целые числа. Количество чисел = n, при 8<n<15. Вычислить произведение максимального и минимального элемента массива.

@Germanant · 06.02.2014, 00:39

Pascal

program Project1;
var F:file of integer;
    buf:integer;
    n,i,min,max:integer;
begin
randomize;
repeat
write('n=');
readln(n);
until (n>=8)and(n<=15);
Assign(f,'data');
rewrite(f);
for I := 1 to n do
 begin
  buf:=random(10)-6;
  write(f,buf);
 end;
seek(f,0);
read(f,buf);
min:=buf;max:=min;
writeln('elementi file:');
while not(eof(f)) do
begin
read(f,buf);
if max<buf then
 max:=buf;
if min>buf then
 min:=buf;
 write(buf,' ');
end;
writeln;
writeln('Proizved=',min*max);
readln;
close(f);
end.

@Nastushka95 0 / 0 / 2 Регистрация: 30.09.2013 Сообщений: 17
		1
	Вычислить произведение максимальной и минимальной компоненты файла 05.02.2014, 22:42. Показов 1011. Ответов 1 Метки нет (Все метки) Создать файл File1, компонентами которого являются целые числа. Количество чисел = n, при 8<n<15. Вычислить произведение максимального и минимального элемента массива. 0

Опции темы

Вычислить произведение максимальной и минимальной компоненты файла

Решение