Нужно написать программу. 1.дан массив чисел ,найти - вопрос №8250426110 от farsama 18.12.2022 12:55

Question

Информатика: Нужно написать программу. 1.дан массив чисел ,найти сумму элементов больше 10 и меньше 20

farsama · Answer

var a:array[1..N] of integer;s,K:integer;beginreadln(K);for i:=1 to N do readln(a[i]);for i:=1 to N doif (a[i] mod K=0) then s:=s+a[i];write(s);end. ...