Дан массив из 10 элементов. подсчитать сумму элементов, - вопрос №1098710263 от f3k 24.07.2021 22:44

Question

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

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