Заменить максимальный по модулю отрицательный элемент нулем
Заменить максимальный по модулю отрицательный элемент нулем
Ответ(ы) на вопрос:
//Визуально разделил циклы, чтобы было более читаемо
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
Не нашли ответ?
Похожие вопросы