Задача. Линейный массив (вектор) T, размерностью 10 элемент заполнен целыми случайными числами, сгенерированными в интервале [-10; 10]. Необходимо:

определить максимальный по модулю элемент массива; вывести номер (любого, если их несколько) и значение такого элемента; определить, сколько в предложенном массиве таких элементов и вывести их номера.

Uses crt;

var

a:array[1 ... 10]of integer;

b:array[1 ... 10]of integer;

max, i, c, k:integer;

beginfor i:=1 to 10 do

a[i]:=random (20) - 10;

for i:=1 to 10 do

if abs (a[i]) >abs (max) then begin

max:=a[i];

c:=i;

end;

for i:=1 to 10 do

if (a[i]=max) and (ic) then begin

b[i]:=i;

k:=k+1;

end;

writeln ('максимальный элемент по модулю = (', max,') номер этого элемента = (', c,') ') ;

write ('номера таких же элементов: ') ;

for i:=1 to 10 do

if b[i]>0 thenwrite (b[i],' ') ;

writeln ('их кол-во: (', k,') ') ;

writeln;

for i:=1 to 10 do

write (a[i],' ')

end.