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

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

uses crt;vara:array[1..10]of integer;b:array[1..10]of integer;max,i,c,k:integer;beginfor i:=1 to 10 doa[i]:=random(20)-10;for i:=1 to 10 doif abs(a[i])>abs(max) then beginmax:=a[i]; c:=i;end;for i:=1 to 10 doif (a[i]=max)and(i<>c) then beginb[i]:=i; k:=k+1;end;writeln('максимальный элемент по модулю=(',max,') номер этого элемента=(',c,')');write('номера таких же элементов: ');for i:=1 to 10 doif b[i]>0 thenwrite(b[i],' ');writeln('их кол-во:(',k,')');writeln;for i:=1 to 10 dowrite(a[i],' ')end.