В массиве из 20 целых чисел найдите наибольший элемент среди…

В массиве из 20 целых чисел найдите наибольший элемент среди отрицательных и поменяйте его местами с первымэлементом. Вот начал делать, а потом не знаю как дальше: constk=20; vara: array[1… k] of integer; g,i,max: =integer; beginfor i: =1 to n do begina[i]: =random (20) -10; write (a[i],'); max: =a[i]; for i: =1 to n doif a[i]<0 then max: =a[i]; writeln ('max=',max); end; Дальше не знаю, там по-моему надо ввести переменную (в моем случае "g") и мне кажется там ошибка в поиске максимально среди отрицательных элементов. Помогите пожалуйста.

в избранное

koalv

22 августа 2022

Var a: array[1… 20] of integer; i,max,c,nom: integer; beginmax: =-100000000; for i: =1 to 20 do begina[i]: =random (20) -10; write (a[i],'); end; for i: =1 to 20 do beginif (a[i]<0) and (a[i]>max) then nom: =i; if (a[i]<0) and (a[i]>max) then max: =a[i]; end; writeln; for i: =1 to 20 do beginif i=nom then swap (a[nom],a[1]); end; for i: =1 to 20 do beginwrite (a[i],'); end; writeln ('max=',max,'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?