Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них - Pascal ABC

  1. Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них.


textual

Код к задаче: «Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них - Pascal ABC»

program  min_max;
{отключим проверку на диапазон}
{$R-}
uses crt;
var a:array[1..20] of real;
i:integer;
min,max,delta:real;
begin
for i:=1 to 20 do
readln(a[i]);
min:=0;
max:=a[1];
for i:=1 to 20 do
begin
if min>a[i] then min:=a[i]
if max<a[i] then max:=a[i];
end;
delta:=max-min;
write('max-min=',delta);
end.

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.333 из 5



Похожие ответы
  1. Пожалуйста, помогите решить задачу в PascalABC! Дано целое число N и набор из N чисел. Найти минимальный и максимальный из элементов данного набора и вывести их в указанном порядке

  1. 1)Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 3 и 5 2)Определить, есть ли пара соседних элементов с суммой, равной заданному числу А Народ только сказали, чтобы массив автоматически выводился и желательно проверьте сами.. а то я вообще не понимаю в этом..Добавлено через 1 час 3 минуты ну помогите народ оч срочно надо..

  1. Решите с помощью блок схемы или паскаля Составьте алгоритм для решения следующей задачи: Среди N произвольных вещественных чисел найдите количество не равных нулю.

  1. Вычислить округленное значение логарифма модуля суммы синусов двух заданных вещественных чисел Входные данные: Во входном потоке в первой строке задано два вещественных числа. Значения чисел по модулю не превышают 1 000 000 000. Выходные данные: В выходной поток вывести одно целое число. Пример входного файла (input.txt): 5.5 2.5 Пример выходного файла (output.txt): -2 ______________________________________________________________ Вот так что ли, или как?

  1. буду благодарен за помощь. Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле. Если файла с таким именем не существует, то вывести −1.Добавлено через 54 минуты помогитееее :-(Добавлено через 1 минуту

  1. Ввести с клавиатуры 5 дробных чисел вычислить их среднее арифметическое

  1. Задача: Найти произведение минимального элемента матрицы вещественных чисел на сумму ее положительных элементов. Алгоритм решения задачи: Присвоить переменной min максимально возможное значение или больше максимально возможного. В коде ниже присвоено число 5.0, т.к. случайные числа для заполнения матрицы будут в диапазоне [-5.0; 5.0].Почему случайные числа будут в диапазоне -5.0; 5.0? КОД:

  1. 1. В одномерном массиве, состоящем из n вещественных элементов: 1) определите, каких элементов больше – положительных нечетных или отрицательных четных; 2) определите, все ли элементы массива – простые числа. Не совсем поняла это задание. Заранее благодарю.

  1. Дано 12 чисел. Напечатать сначала все отрицательные из них, а затем все остальные. Задать массив в двух вариантах: исходные массивы задать типизированными константами и элементы исходных массивов ввести через оператор ввода.

  1. Вводятся 10 чисел. Найти наиболее длинную последовательность одинаковых чисел. Например, набрано "2 3 2 4 4 8 2 2 2 3" – здесь максимальная последовательность это "2 2 2". Надо вывести на экран: "Число 2 подряд 3 раза" ПОМОГИТЕ!!!!!!!!