1 / 1 / 0
Регистрация: 26.04.2014
Сообщений: 121
1

Найти сумму минимального и максимального элементов файла целых чисел

08.05.2014, 18:38. Показов 5959. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
заполнить файл последовательного доступа N действительными числами, полученными с помощью датчика случайных чисел.Найти сумму минимального и максимального элементов этого файла.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2014, 18:38
Ответы с готовыми решениями:

Дан массив целых чисел a1,...,an. Найти произведение максимального и минимального элементов
помогите...

Дана последовательность целых чисел, за которой следует 0. Найти сумму минимального и максимального элементов в этой
Дана последовательность целых чисел, за которой следует 0. Найти сумму минимального и максимального...

Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м. Вывести сумму элементов от минимального до максимального
Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м....

Найти сумму минимального и максимального элементов файла
Заполнить файл последовательного доступа N действительными числами введёны с клавиатуры Найти сумму...

1
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
08.05.2014, 18:57 2
Лучший ответ Сообщение было отмечено ZaRinKa97 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
var f:file of integer;
    i,n,x,min,max:integer;
begin
 clrscr;
  assign(f,'f.txt');
   rewrite(f);
  write('Введите кол-ство компонентов файла n=');
   readln(n);
  for i:=1 to n do
   begin
    x:=-10+random(25);
     write(f,x);
   end;
  seek(f,0);
   writeln('Содержание файла :');
    while not eof(f) do
     begin
      read(f,x);
       write(x:4);
     end;
  writeln;
   seek(f,0);min:=0;max:=0;
    for i:=1 to filesize(f)-1 do
     begin
      seek(f,i);
       read(f,x);
       if x>max then
        max:=x
       else
        if x<min then
         min:=x;
     end;
   writeln('Максимальный элемент max=',max);
    writeln('Минимальный элемент min=',min);
     writeln('Сумма max и min = ',(max+min));
   close(f);
 readkey;
end.
0
08.05.2014, 18:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.05.2014, 18:57
Помогаю со студенческими работами здесь

Дан двумерный массив целых чисел. Найти произведение максимального и минимального элементов.
Дан двумерный массив целых чисел. Найти произведение максимального и минимального элементов.

Множества: Найти сумму минимального и максимального элементов файла
Заполнить файл последовательного числа N действительными числами, полученными с помощью датчика...

Найти сумму минимального и максимального элементов этого файла
Подружка попросила помочь ))Заполнить файл последовательного доступа N действительными числами...

Найти сумму максимального и минимального элементов заданного массива из 10 чисел
найти сумму максимального и минимального элементов заданного массива из 10 чисел. исходник на...

Найти сумму максимального и минимального элементов заданного массива из 10 действительных чисел
найти сумму максимального и минимального элементов заданного массива из 10 действительных чисел.

Найти сумму максимального и минимального чисел строки, у которой произведение элементов нечетно
Найти сумму максимального и минимального чисел строки, у которой произведение элементов нечетно. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru