io:=n;
while (a>0)and (io>1)do
io:=n-1;
imax=0;
for i:=1 to io-1 do
if (a mod k1=0)and((imax=0)or(a>a[imax])) then
imax:=i;
Задачи поиска по двум условиям /Дельфи/
Задан целочисленный одномерный массив a из n элементов. Найти значение максимального элемента среди элементов, кратных k1 и расположенных до последнего отрицательного элемента
моя благодарность не будет иметь границ!)
моя благодарность не будет иметь границ!)