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

October 2021 1 12 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

najti kolichestvo elementov kratnyh pyati v massive n chisel napisat programmu p

Answer

natasha98123 July 2022 | 0 Ответы

napishite uravneniya reakcij s pomoshyu kotoryh mozhno osushestvit sleduyushie prevraba34a94b3e5e778cab98d2f8a880da98 82019

Answer

natasha98123 July 2022 | 0 Ответы

Answers & Comments

najti kolichestvo elementov kratnyh pyati v massive n chisel napisat programmu p

napishite uravneniya reakcij s pomoshyu kotoryh mozhno osushestvit sleduyushie prevraba34a94b3e5e778cab98d2f8a880da98 82019

elektricheskij chajnik potreblyaet tok 3 a pri napryazhenii 120 v iz kakogo material

opredelite napryazhenie na koncah nihromovogo provodnika dlinoj 150m i secheniem 1

kakoe kolichestvo veshestva soderzhitsya v 14416g ortofosfata kaliya

kakaya massa ortofosfata natriya obrazuetsya pri vzaimodejstvii 3596g oksida natri

napisat istoriyu ot pervogo lica min 120 slov devushka uehala na vyhodnye k po

privedite primery iz otechestvennoj literatury v kotoryh est mezhnacionalnye i

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

Helpful Links

Helpful Social