Задание: разработать алгоритм и изобразить его в виде блок-схемы.
Пользователь вводит с клавиатуры N чисел. Определить номер максимального по модулю элемента, выдав сообщение вида “Максимальный по модулю элемент был введен 7-м”.
Пользователь вводит с клавиатуры N чисел. Определить номер максимального по модулю элемента, выдав сообщение вида “Максимальный по модулю элемент был введен 7-м”.
More Questions From This User See All
Answers & Comments
Verified answer
//Блок-схема во вложении//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.