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

kristina17102004 kristina17102004    3   18.09.2019 17:10    5

Ответы
SaskaPups SaskaPups  08.10.2020 00:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика