Question

Дан массив из 10 элементов. Подсчитать сумму элементов, кратных 9

Answer 1

var a: array [1..10] of integer;    c,sum: integer;beginsum:=0;    writeln('введите элементы массива ');    for c := 1 to 10 do read(a[c]);    for c := 1 to 10 do if (a[c] mod 9) = 0 then sum:=sum+a[c];writeln('сумма равна =',sum);end.