Задание: разработать алгоритм и изобразить его в виде блок-схемы.
Пользователь вводит с клавиатуры 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
