№1.Дан массив натуральных чисел Найти сумму элементов кратных данному К №2.В целочисленной последовательности есть нулевые элем
№1.Дан массив натуральных чисел Найти сумму элементов кратных данному К №2.В целочисленной последовательности есть нулевые элементы Создать массив из номеров этих элементов
1) Program n1; var a,b,i: integer; begin readln(a,b); for i:=a to b do write(i*5,' '); end. 2) Program n2; var a: real; i: integer; begin readln(a); for i:=2 to 24 do if i mod 2=0 then write(a*i/10,' '); end.