Дан массив a (1 ... 10) integer. пощитать количество элементов которые делятся на 13 и сумму которых не делятся на 13

Question

Информатика

Пахомий

10 сентября, 01:11

Дан массив a (1 ... 10) integer. пощитать количество элементов которые делятся на 13 и сумму которых не делятся на 13

+2

Ответы (1)

Знаешь ответ?

Сашуха · Answer 1

Var a:array[1 ... 10] of integer; k, n, i:integer; begin k:=0; n:=0; for i:=1 to 10 do read (a[i]); for i:=1 to 10 do if a[i] mod 13=0 then k:=k+1 else n:=n+1; writeln (k,' ', n); / / k-делятся на 13 n-не делятся на13 readlnend.