Задача. Линейный массив (вектор) 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.