Дан массив из 10 элементов. подсчитать сумму элементов, - вопрос №108710606 от dima201100d 06.03.2022 07:35

Question

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

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