Создать массив A[1..N]. Если количество положительных чисел меньше, чем отрицательных, то каждое положительное число увеличить на первое положительное значение в массиве. Определить минимальное и максимальное значения и их порядковые номера.
Lapp
11.10.2011 4:04
Цитата(KekcMan @ 10.10.2011 17:57)
Создать массив A[1..N]. Если количество положительных чисел меньше, чем отрицательных, то каждое положительное число увеличить на первое положительное значение в массиве. Определить минимальное и максимальное значения и их порядковые номера.
for i:=1 to n do a[i]:= random(101)-50; p:=0; for i:=1 to n do if a[i]>0 then inc(p) else if a[i]<0 then dec(p); if p<0 then for i:=1 to n do if a[i]>0 then begin if p<0 then p:= a[i]; Inc(a[i],p) end; max:= 1; min:= 1; for i:=2 to n do if a[i]>a[max] then max:=i else if a[i]<a[min] then min:=i;
Не проверял, набирал прямо тут.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.