a....

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:=random(101)-50;
              write(a:3);
         end; 
 
 m:=a[1];c:=1;
for i:=1 to 10 do 
    if (abs(a))>m then 
            begin
                 m:=a;
                 c:=i; 
           end;    
 
 writeln;
 writeln('Максимальный по модулю элемент:',m,'его индекс:',c);
 readkey;
 
end.