Нужно написать программу. 1.дан массив чисел ,найти - вопрос №8250426110 от UILA336 18.01.2023 08:34

Question

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

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