Вычислить значения 38 элементов одномерного массива D в заданном интервале

var
D:array[1..38] of integer;
i:integer;
begin
randomize;
for i:=1 to 38 do
D[i]:=random(16)-9;
for i:=1 to 19 do
write(D[i],' ');
writeln;
for i:=19 to 38 do
write(D[i],' ');
end.

var
D:array[1..38] of integer;
i:integer;
begin
  randomize;
  for i:=1 to 38 do begin
     D[i]:= -9 + random(17);  { [ -9 .. 7 ] }
     Write(D[i], ' ');
  end;
end.

For i:=1 to 38 do D[i]:=Random(17)-9;

program zarina;
uses crt;
const
a=7;
b=-9;
n=38;
var D:array[1..38] of integer;
i,k,summa,count:integer;
sred:real;
x:integer;
max,otr,omax,imax,j,max_m,ba,min:integer;
ka,burn,ji:integer;
begin
clrscr;
writeln('Эта программа использует оператор выбора CASE’ );
writeln('Введите цифру( 1,2,3 или 4), каждая цифра соответствует той части задания по условию');
read(x);
case x of
1:
begin
randomize;
for i:=1 to n do
D[i]:=round((b-a+1)*random(38)/38+a);
writeln(' часть 1');
writeln('ввод 38 элементов одномерного целочисленного массива D в интервале (-9,7)');
writeln;
for i:=1 to n do
write(D[i]:4);
writeln;
end;
 
2:
begin
begin
count:=0;
summa:=0;
for i:=1 to (n div 3) do
if D[i] mod 2<>0 then summa:=summa+D[i];
for i:=1 to (n div 3) do
begin
if D[i] mod 2<>0 then inc(count);
end;
begin
sred:=summa/count;
end;
writeln;
writeln(' часть 2 ');
writeln('сумма всех ненулевых чисел первой трети массива : ',summa);
writeln('количество всех ненулевых чисел первой трети массива : ',count);
writeln('среднегармоническое значение ненулевых элементов первой трети массива : ', sred:3:2);
end;
end;
 
3:
begin
begin
min:=-10000;
otr:=0;
writeln;
for i:=3*n div 1 to n do
if ((D[i]<0) and (min<D[i])) then
begin
min:=D[i];
otr:=i;
end;
writeln;
writeln(' часть 3 ');
writeln(' индекс наименьшего по абсолютной величине среди четных по номеру элементов в первой четверти массива= ', otr);
writeln('это число= ', min);
end;
end;
 
4:
begin
begin
for i:=1 to n do
if i mod 3=0 then
begin
ka:=i;
 
for ji:=i+1 to n do
if ji mod 3=0 then
if abs(D[ji]) < abs(D[ka]) then ka:=ji;
burn:=D[i];
D[i]:=D[ka];
D[ka]:=burn;
end;
writeln;
writeln(' часть 4 ');
writeln('упорядоченный ненулевые элементы последней трети массива по возрастанию абсолютных значений : ');
for i:=1 to n do
begin
write(D[i]:4);
end;
end;
end;
end;
readkey;
end.

const n = 36;
var d: array [1..38] of integer;
    i, j, k, count, min, burn: integer;
    sred: real;
    x: string;
    f: boolean;
begin
  writeln('Эта программа использует оператор выбора CASE.');
  f := false;
  repeat
    writeln('1 - формирование ', n, ' элементов одномерного');
    writeln('    целочисленного массива в интервале (-9,7);');
    writeln('2 - вычисление среднегармонического значения');
    writeln('    ненулевых элементов первой трети массива;');
    writeln('3 - определение наименьшего по абсолютной величине среди');
    writeln('    чётных по номеру элементов первой четверти массива;');
    writeln('4 - упорядочение ненулевые элементов последней трети массива');
    writeln('    по возрастанию абсолютных значений;');
    writeln('5 - печать массива;');
    writeln('6 - выход из программы.');
    write('Введите цифру: ');
    readln(x);
    if length(x) = 0 then x := '0';
    if (x[1] in ['2'..'5']) and not(f)
      then writeln('Массив ещё не сформирован, выберите ''1''.')
      else case x[1] of
       '1': begin
              randomize;
              f := true;
              writeln('Сформированный массив:');
              for i:=1 to n do
                begin
                  d[i] := -9 + random(17);
                  write(d[i]:4)
                end;
              writeln
            end;
       '2': begin
              count := 0;
              sred := 0;
              for i := 1 to (n div 3) do if d[i] <> 0
                then begin
                  sred := sred + 1 / d[i];
                  inc(count)
                end;
              writeln('Количество ненулевых чисел первой трети массива: ', count);
              if count = 0
                then begin
                  writeln('Ненулевых чисел в первой трети массива нет, среднегармоническое');
                  writeln('значение ненулевых элементов вычислить невозможно.')
                end
                else begin
                  sred := count / sred;
                  writeln('Среднегармоническое значение ненулевых');
                  writeln('элементов первой трети массива: ', sred)
                end
            end;
       '3': begin
              min := 1;
              writeln;
              for i := 1 to n div 4 do if abs(d[i]) < abs(d[min]) then min := i;
              writeln('Индекс наименьшего по абсолютной величине среди четных');
              writeln('по номеру элементов в первой четверти массива: ', min);
              writeln('Значение этого элемента: ', d[min])
            end;
       '4': begin
              k := (n div 3) * 2 + 1;
              while (d[k] = 0) and (k < n) do inc(k);
              if k = n
                then begin
                  writeln('Последняя треть массива содержит менее');
                  writeln('двух ненулевых значений, упорядочение невозможно.')
                end
                else begin
                  for i := k to n - 1 do
                    for j := i + 1 to n do if (d[j] <> 0) and (d[i] <> 0) and (abs(d[j]) < abs(d[i]))
                      then begin
                        burn := d[i];
                        d[i] := d[j];
                        d[j] := burn
                      end;
                  writeln('Массив с упорядоченными ненулевыми элементами последней');
                  writeln('трети массива по возрастанию абсолютных значений:');
                  for i:=1 to n do write(d[i]:4);
                  writeln
                end;
            end;
       '5': begin
              writeln('Массив:');
              for i:=1 to n do write(d[i]:4);
              writeln
            end
       else if x[1] <> '6' then writeln('Ошибка. Повторите ввод.')
      end;
    if x[1] <> '6'
      then begin
        write('Для продолжения нажмите <Enter>');
        readln
      end
  until x[1] = '6'
end.