Регистрация
sicrettry
01.04.2022 07:56
Информатика
Есть ответ 👍

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

116
171
Посмотреть ответы 2

Ответы на вопрос:

Jimitapark8
Jimitapark8
4,6(30 оценок)
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.
Soniasizova
Soniasizova
4,5(64 оценок)
// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   var a: =matrfill(m,n,0);   for var i: =0 to m-1 do       for var j: =0 to n-1 do read(a[i,j]);   writeln('в 5-й строке число 13 встречено в колонке ',       a.row(4).indexof(13)+1) end. пример количество строк в массиве: 7 количество столбцов в массиве: 8 -4 10 -6 19 -3 -6 18 -9 16 12 18 8 14 11 4 10 -10 -4 -7 13 11 -4 4 -2 -6 1 11 8 1 11 7 8 18 6 14 -7 -8 13 5 13 -1 6 14 8 -5 11 -2 -5 20 16 7 -4 6 5 20 -10 в 5-й строке число 13 встречено в колонке 6

Популярно: Информатика