Ввести с клавиатуры массив из N вещественных чисел. Найти разность максимального...

October 2021 1 19 Report

Ввести с клавиатуры массив из N вещественных чисел. Найти разность максимального и минимального элементов.
(Составить программу Pascal)

Answers & Comments

Yegor55 Uses crt;

const
N = 10;

var
a : array [1..N] of Real;
i : Integer;
   max, min : Real;
begin
clrscr;

for i := 1 to N do
begin
        Write('a[', i,'] = ');
       Readln(a[i]);
  end;

max := a[1];
  min := a[1];

for i := 2 to N do
begin
if max < a[i] then max := a[i];
if min > a[i] then min := a[i];
end;

  Writeln(max - min:0:3);
  Readln;
end.

1 votes Thanks 1

Answers & Comments

Найти количество элементов кратных пяти в массиве N-чисел. (написать программу П...

Напишите уравнения реакций, с помощью которых можно осуществить следующие превра...

Электрический чайник потребляет ток 3 А при напряжении 120 В. Из какого материал...

Определите напряжение на концах нихромового проводника длиной 150м и сечением 1,...

Какое количество вещества содержится в 144,16г ортофосфата калия?...

Какая масса ортофосфата натрия образуется при взаимодействии 35,96г оксида натри...

Написать историю от первого лица (мин. 120 слов) Девушка уехала на выходные к по...

Приведите примеры из отечественной литературы, в которых есть межнациональные и ...

рекомендуемые вопросы

Helpful Links

Helpful Social