Заменить максимальный по модулю отрицательный элемент нулем

Заменить максимальный по модулю отрицательный элемент нулем
Гость
Ответ(ы) на вопрос:
Гость
//Визуально разделил циклы, чтобы было более читаемо  var ar:array[1..10] of integer; max,i:integer; begin; randomize; //чтобы random() работал как надо writeln('Array'); for i:=1 to 10 do begin; ar[i]:=random(-10,10); //случайное число от -10 до 10 write(ar[i]:4); end; for i:=1 to 10 do //"проходим" через весь массив if (ar[i]<0) and (max
Не нашли ответ?
Ответить на вопрос
Похожие вопросы