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

Множества: Найти сумму минимального и максимального элементов файла

25.02.2013, 15:34. Показов 1431. Ответов 1
Метки нет (Все метки)

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

Найти сумму минимального и максимального элементов файла целых чисел
заполнить файл последовательного доступа N действительными числами, полученными с помощью датчика...

Матрицы. Найти индексы минимального и максимального элементов. Найти сумму элементов главной и побочной диагонали
Здравствуйте) Прошу помощи в решении двух задач: 1) Ввести массив W(30). Найти индексы его...

Матрицы. По условию найти сумму четных элементов матрицы, больших 5, иначе определить сумму максимального и минимального элементов
Последняя надежда на вас, извиняйте что дуб я такой :-| Вот условие: Матрица n m. Если число...

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

1
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 978
25.02.2013, 21:06 2
Лучший ответ Сообщение было отмечено vitaly55 как решение

Решение

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Program L1;
uses Crt;
var f:file of real;
    Buf,Ma,Mi:real;
    N:integer;
Procedure CreateFile(Filename:string;k:integer);
var i:integer;
begin
Assign(f,Filename);
Rewrite(f);
for i:=1 to n do
begin
buf:=(random(20)+3.3257)/0.13157;
write(f,buf);
end;
close(f);
end;
 
Procedure FindMinMax(Filename:string;var min:real;var max:real);
begin
Assign(f,Filename);
reset(f);
read(f,buf);
min:=buf;
max:=buf;
while not eof(f) do
begin
read(f,buf);
if max<buf then max:=buf;
if min>buf then Min:=buf;
end;
close(f);
end;
procedure OutFile(Filename:string);
begin
writeln('File data: ');
Assign(f,Filename);
reset(f);
while not eof(f) do
begin
read(f,buf);
write(buf:1:2,' ');
end;
writeln;
close(f);
end;
 
begin
readln(n);
CreateFile('Real.d',n);
OutFile('real.d');
FindMinMax('Real.d',Mi,Ma);
writeln(Mi:1:3,'+',Ma:1:3,'= ',(Mi+Ma):1:3);
readln;
end.
1
25.02.2013, 21:06
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2013, 21:06
Помогаю со студенческими работами здесь

Найти сумму максимального и минимального элемента среди элементов главной диагонали матрицы
1. В массиве размерности n*n, состоящего из целых чисел, найти сумму максимального и минимального...

Вычислить сумму максимального и минимального элементов в массиве
2. Составьте блок-схему алгоритма и программу вычисления суммы максимального и минимального...

Вычислить сумму максимального и минимального элементов массива
ЗАДАЧА: В одномерном массиве из 10 элементов вычислить сумму максимального и минимального...

Определить сумму индексов максимального и минимального элементов массива
Определить сумму индексов min и max элементов массива


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

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

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