Задание: разработать алгоритм и изобразить его в виде блок-схемы. Пользователь вводит с клавиатуры N чисел. Определить номер максимального по модулю элемента, выдав сообщение вида “Максимальный по модулю элемент был введен 7-м”.

//Блок-схема во вложении //Pascal ABC.NET v3.0 сборка 1111 Var  a,i,n,max,maxi:integer; begin  readln(n);   for i:=1 to n do    begin;     readln(a);      if abs(a)>max then       begin;        max:=abs(a);        maxi:=i;       end;   end;  write('Максимальный по модулю элемент был введен ',maxi,'-м'); end.