Для заданного одномерного массива с компонентами вещественного типа написать программу решения : вычислить разность между наибольшим и наименьшим элементом.

program massiv; vara: array[1..10] of integer; i,b,c : integer; beginwriteln ('posledovatelno vedity elementi massiva (10 chisel)'); for i: =1 to 10 doreadln(a[i]); b: =a[1]; for i: =1 to 10 dobeginif a[i]> b thenb: =a[i]; end; c: =a[1]; for i: =1 to 10 dobeginif a[i]< c thenc: =a[i]; end; writeln('raznost mesdu naibolshim i naimenshim elementom massiva  =',b-c); readln; end.

p.s если нужны пояснения то в личку

program fnued;

uses crt;

var a: =array [1..1000] of integer;

      i,n,max,min,r: real;

begin

clrscr;

readln(n);

for i: =1 to n do

readln(a[i]);

min: =a[1];

max: =a[1];

for i: =1 to n do

if a[i]> max then max: =a[i];

for i: =1 to n do

if a[i]< min then min: =a[i];

r: =max-min;

writeln(r);

readln;

end.

 

Const   nn = 20;   mm = 20; var   a: array[1..nn, 1..mm] of integer;   i, j, m, n, n1,n2,sj: integer; begin   { формирование массива и вывод его элементов.       попутный подсчет количества четных и нечетных элементов }   n1: =0; n2: =0;   write('введите через пробел число строк и столбцов массива: ');   readln(n, m);   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       for j : = 1 to m do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4);           if (a[i,j] mod 2=0) then n2: =n2+1 else n1: =n1+1       end;       writeln   end;   { сравнение и ветвление }   if n2> n1 then       { уменьшить вдвое все положительные элементы }   begin       writeln('результирующий массив');       for i: =1 to n do       begin           for j: =1 to m do           begin               if a[i,j]> 0 then a[i,j]: =a[i,j] div 2;               write(a[i,j]: 4)           end;           writeln       end   end   else   begin       { найти суммы отрицательных элементов каждого столбца }       writeln('суммы отрицательных элементов по столбцам');       for j: =1 to m do       begin           sj: =0;           for i: =1 to n do               if a[i,j]< 0 then sj: =sj+a[i,j];           write(sj,' ')       end   end end. тестовое решение: введите через пробел число строк и столбцов массива: 8 5 исходный массив   13 -23  25    2 -36   -19  47  -7 -24 -34   -21  12 -29  46 -46   18  -3  12 -26  -8   -36 -39 -27 -48 -44   -25  -4 -23 -11 -15   49  24  -5  28  32   -37 -32 -34  39  45 суммы отрицательных элементов по столбцам -138 -101 -125 -109 -183

Const n=10; var a: array[1..n] of integer; i,k,j: integer; begin randomize;     for i: =1 to n do            begin            a[i]: =random(10);             write(a[i],' ');       end;             writeln;         for i: =1 to n do             begin               if a[i] mod 3=0 then                 write(a[i],' ');         end;                         for i: =1 to n-1 do         for j: =1 to n-i do             begin                 if (a[j] > a[j+1]) then                     begin                         k: = a[j];                         a[j] : = a[j+1];                         a[j+1] : = k;                     end;                     end;                                             writeln;                             for i: =1 to n do          write(a[i],' ');         readln;         end.