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

Question

Информатика

Славуха

28 июля, 02:57

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

+1

Ответы (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.