Question

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

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.