1. Информатика
  2. Требуется поменять местами первый

Требуется поменять местами первый элемент массива с максимальным. входные данные в первой строке вводится одно натуральное число, не превосходящее 1000 — размер массива. во второй строке n чисел — элементы массива (целые числа, не превосходящие по модулю 1000). выходные данные вывести получившийся массив. если максимальных элементов несколько, требуется поменять первый из них.

elizavetaivlic elizavetaivlic    1   04.07.2019 10:40    10

Ответы
аникдим аникдим  28.07.2020 06:51
Var a:array[1..1000] of integer;
n,i,im,max:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
writeln;
max:=a[1];im:=1;
for i:=1 to n do
if a[i]>max then 
begin
max:=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 do
write(a[i],' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
алина3687 алина3687  24.05.2019 01:00
1. для каждого из указанных подмножеств назовите множество, с которым оно связано отношением «является разновидностью» (назовите общее имя, отвечающее на вопрос «что это такое?...
Dinomyron Dinomyron  11.04.2021 16:16
Алгоритм вычисления функции F(n) задан следующими соотношениями: F(n) = 1 при n ≤ 1; F(n) = n · F(n – 1) при чётных n 1; F(n) = n + F(n – 2) при нечётных n 1; Определите значение...
Архес228 Архес228  17.05.2020 16:54
Какой текст вы увидите на экране в результате исполнения этой программы program z var i ,n integer begin for i=0 to9 do begin n= 2*i+1 writeln (n, ,n*n*n) end если i=5...
error404notfoud error404notfoud  17.05.2020 16:54
Скільки задач одночасно виконуються у Windows? ​...
polykanasch201 polykanasch201  09.06.2019 07:20
Даны натуральное число n и символы s1, …, sn (строка). преобразовать данную строку, заменив в ней каждую точку многоточием (т.е. тремя точками)....
Ирина8891 Ирина8891  09.06.2019 07:20
Согласно какому протоколу данные нарезаются на пакеты и каждый пакет маркируется для правильной сборки? 1) ip 2) imap 3) http 4) tcp 5) ftp...
kyzmina97 kyzmina97  09.06.2019 07:20
Какая служба предназначена для передачи файлов 1) icq 2) ftp 3) www...
Aigerim735 Aigerim735  09.06.2019 07:20
Вычислить количество натуральных чисел кратных трем и не превышающих n....
анна2255 анна2255  09.12.2021 20:33
скласти програму в пайтон що прораховує скільки грошей отримує користивач наприкінці n років якщо він поклав у депозит у банк 1000 грн під 25% річних...
томирис1222233 томирис1222233  09.12.2021 20:32
VBA Дан двумерный массив A размера n*n. Найти произведение ненулевых элементов массива, находящихся выше главной диагонали. Исходную матрицу вывести на элемент управленияListBox,...

Популярные вопросы