Question

заполнить массив случайными числами от -10 до 50. найти разность между максимальным и минимальным элементами массива

Answer 1

паскаль абц -

const n=45;

var

 a:array [1..n] of integer;

 ras,i,x,j:integer;

 

begin

for i:=1 to n do

 a[i]:=random(-10,50);

x:=a[1]; // икс - самое маленькое

j:=a[1]; // джей - самое большое

for i:=2 to n do

begin

 if x > a[i] then

   x:=a[i]; // если икс меньше следующего значения, то присваеваем ему икс

 if j < a[i] then

   j:=a[i]; // по аналогии, только если джей больше

end;

ras:=j-x;

writeln('разность между числами ', j,' и ',x,' равна ', ras);

end.