Нужно написать программу. 1.дан массив чисел ,найти - вопрос №82495241 от Pancho2234 03.01.2023 00:29

Question

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

Pancho2234 · 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. ...