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.