Дан массив из 10 элементов. подсчитать сумму - вопрос №8710940109 от emir07 22.02.2020 22:53

Question

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

emir07 · Answer

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