a.       Найти значения максимального по модулю элемента одномерного целочисленного массива, сформированного случайными числами, и его индекс. Вывести массив на экран.

// Размер массива в данном примере равен 10 Если нужно больше поменяешь сам. Program Massiv; Uses Crt; var a:array[1..10] of integer;        i,c,m:integer; begin      clrscr;       randomize;       write('Исходный массив:');       for i:=1 to 10 do          begin                 a[i]:=random(101)-50;               write(a[i]:3);          end;     m:=a[1];c:=1; for i:=1 to 10 do      if (abs(a[i]))>m then              begin                  m:=a[i];                  c:=i;             end;        writeln;  writeln('Максимальный по модулю элемент:',m,'его индекс:',c);  readkey;   end.