В массиве из 20 целых чисел найдите наибольший элемент среди отрицательных и поменяйте его местами с первым элементом.
Вот начал делать, а потом не знаю как дальше:

const
k=20;
var
a:array[1..k] of integer;
g,i,max:=integer;
begin
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
max:=a[i];
for i:=1 to n do
if a[i]<0 then max:=a[i];
writeln('max=',max);
end;

Дальше не знаю, там по-моему надо ввести переменную (в моём случае "g") и мне кажется там ошибка в поиске максимально среди отрицательных элементов. Помогите пожалуйста.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.