Дан целочисленный массив из 6 элементов. 1. Найти и вывести номер первого элемента массива , который имеет нечётное значение. 2
Дан целочисленный массив из 6 элементов. 1. Найти и вывести номер первого элемента массива , который имеет нечётное значение. 2. Найти и вывести сумму элементов массива , которые делятся на последний элемент и меньше , чем первый.
Var mas: array [1..6] of integer; var i, b, sum: integer; begin for i:=1 to 6 do mas[i]:=random(101); b:=0; while i<=6 do if mas[i] mod 2<>0 then begin b:=i; i:=7; end else inc (i); sum:=0; for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]<mas[1]) then sum:=sum+mas[i]; writeln (b); writeln (sum); <span>end.</span>