:разработать алгоритм и изобразить его в виде блок-схемы. пользователь вводит с клавиатуры 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.
//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.