Дается последовательность из n чисел. выведите разницу между максимальным и минимальным элементами последовательности. формат входных данных первая строка входного файла содержит целое число n (1 < = n < = 100000 в следующей строке n положительных целых чисел, каждое из которых не превышает 100000. формат выходных данных выведите ответ к .

Const n=4; { любое число n от 1 до 100000} var a: array [1..n] of integer;       b,min,max, s: integer;       proizvedenie: real; beginwriteln('введите n чисел');   for b: =1 to n do  read (a[b]);   for b: =1 to n do      write(a[b],' ');   min: =a[1];   max: =0;   for b: =1 to n do  begin  if a[b]> max then max: =a[b];   if a[b]< min then min: =a[b];   end;   proizvedenie: =max-min;   writeln;   writeln('minimum ',min,' ','maximum ',max,'   proizvedenie=   ',proizvedenie); readln; end.

Ответы а)истина б)ложь в)истина в  эт                а) для или достаточно одной истины - выполняется второе условие b3=45 б) а3=2 истина но   не(а3) дает ложь в) сначала по действиям а3> 2 - ложь     не(а3) - истина                       а1=10   - истина                           и(истина; истина) - истинанаконец для или(истина; итог истина                                здесь вариант и(b2< =5; b3=50))  можно не проверять (исход ясен)  

1)program mas; uses crt; const nmax=100; var x: array[1..nmax]of integer; i,n,b,bcol,proz: integer; begin proz: =1; repeat begin clrscr; write('введите размер одномерного массива(n),n='); read(n); end; until n< =nmax; writeln('введите значения элементов массива: '); for i: =1 to n do read(x[i]); writeln('введенный массив: '); for i: =1 to n do write(x[i],' '); writeln; write('введите число b: '); read(b); for i: =1 to n do if x[i]< b then inc(bcol); writeln('количество элементов меньших b: ',bcol); for i: =1 to n do proz: =proz*x[i]; writeln('произведение всех элементов массива: ',proz); readln; end.2)program p1; var     x: array[1..100] of integer;     max,i,n: integer; begin write('введите количество элементов='); readln(n); writeln('исходный массив'); randomize; for i: =1 to n do   begin   x[i]: =random(101)-50;   write(x[i]: 3);   if (x[i]> =max) then max: =x[i];   end; writeln; writeln('новый массив'); for i: =1 to n do   begin   if (abs(x[i])=max) and (x[i]< > max) then x[i]: =1;   if (x[i]< > max) and (abs(x[i])< > max) then x[i]: =0;   write(x[i]: 3);   end; readln end.3)var   a: array[1..15] of integer;   i: integer;   av: integer;   begin   randomize;   for i : = 1 to 15 do a[i] : = random(40) + 10;   writeln('исходный массив: ');   for i : = 1 to 15 do write(a[i], ' ');   writeln;   av : = 1;   for i : = 1 to 15 do     if a[i] mod 7 = 0 then av : = av * a[i];   if av = 1 then writeln('массив не содержит элементов , которые кратны 7! ')   else writeln('произведение равно: ', av); end.4)uses crt; const n=31; var a: array[1..n] of integer;     i: byte;     max: integer;     sr: real; begin clrscr; writeln('vvedite temperaturu po dnyam: '); sr: =0; for i: =1 to n do   begin     write(i,' maya: ');     readln(a[i]);     sr: =sr+a[i]/31;   end; clrscr; writeln('massiv temperatur: '); max: =a[1]; for i: =1 to n do   begin     write(a[i],' ');     if a[i]> max then max: =a[i];   end; writeln; writeln('samye teplye dni s temperaturoj ',max,' grad'); for i: =1 to n do if a[i]=max then writeln(i,' maya'); writeln; write('srednya temperatura=',sr: 0: 1,' grad'); readln end.5)program prog5_2; const   n = 10;   var   a     : array [1..n] of integer;   i     : integer;   imin, imax : integer;   d, c, s     : integer;   begin     {заполнение массива а случайными числами}     randomize;     for i: =1 to n do       a[i]: =random(100);     {вывод массива а на экран}   writeln('исходный массив: ');   for i: =1 to n do     write(a[i]: 6);   writeln;     {нахождение индексов наибольшего и наименьшего эемаентов массива}   imin: =1;   {индекс наименьшего элемента}   imax: =1;   {индекс наибольшего элемента}   for i: =2 to n do   begin     if a[i] < a[imin] then       imin : =i;       if a[i] > a[imax] then       imax : = i;   end;     {вывод ответа}   writeln('наименьший элемент a[',imin,']=',a[imin]);   writeln('наибольший элемент a[',imax,']=',a[imax]);     {подсчет количества и суммы чисел между минимальным и максимальным значениями}   c: =0;       {количество}   s: =0;       {сумма}   for i : =imin to imax do