Требуется поменять местами первый элемент массива с максимальным. ВХОДНЫЕ ДАННЫЕ В первой строке вводится одно натуральное число, не превосходящее 1000 — размер массива. Во второй строке задаются N чисел — элементы массива (целые числа, не превосходящие по модулю 1000). ВЫХОДНЫЕ ДАННЫЕ Вывести получившийся массив. Если максимальных элементов несколько, требуется поменять первый из них.
Var a:array[1..1000] of integer;n,i,im,max:integer;beginreadln(n);for i:=1 to n doread(a[i]);writeln;max:=a[1];im:=1;for i:=1 to n doif a[i]>max then beginmax:=a[i];im:=i;end;a[1]:=a[1]+a[im];a[im]:=a[1]-a[im];a[1]:=a[1]-a[im];for i:=1 to n dowrite(a[i],);end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Требуется поменять местами первый элемент массива с максимальным. ВХОДНЫЕ ДАННЫЕ В первой строке вводится одно натуральное число, не превосходящее 1000 — размер массива. Во второй строке задаются N чисел — элементы массива (целые числа, не превосходящие по модулю 1000). ВЫХОДНЫЕ ДАННЫЕ Вывести получившийся массив. Если максимальных элементов несколько, требуется поменять первый из них.» от пользователя Vyacheslav Bikovec в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!