дан файл f компоненты которого являются действительными числами, найти сумму наибольшего и наименьшего из значений компонент. паскаль
10-11 класс
|
var
f: file of real;
a, amin, amax: real;
begin
Assign(f, 'input.dat');
Reset(f);
amin := 1e-20;
amax := 1e20;
while not Eof(f) do
begin
read(f, a);
if amin > a then amin := a;
if amax < a then amax := a
end;
Close(f);
writeln('Сумма минимального и максимального элементов равна ', amin + amax)
end.
Другие вопросы из категории
составить программу
через array и for
Подсчитайте количество морозных дней (когда температура ниже -20 град.).
попробую прикрепить задание.
" Выполните арифметические операции над двоичными числами"
110111011+110110110
1101110001-11011011
110010*101110
101000100110:110101
Сколько страниц видеопамяти оно занимает.
Читайте также
Найти количество квадратов нечетных чисел среди компонент файла. Записать это значение в начало нового файла g. Остальные значения переписать из исходного файла f.
Массив из 15 элементов заполнить случайными четными числами в интервале от -25 до 70. Вывести полученный массив на экран в строчку.Найти сумму наибольшего и наименьшего элементов массива. (Использовать пузырьковую сортировку).
Массив из 15 элементов заполнить случайными четными числами в интервале от -25 до 70. Вывести полученный массив на экран в строчку.Найти сумму наибольшего и наименьшего элементов массива. (Использовать пузырьковую сортировку).
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!