Дано масив А[1..n]. Скласти програму пошуку кількості елементів масиву які кратні 3 і некратні 5.

вот)

и еще 1 енд забыл)

const n=10;var a:array[1..n]of integer;i,k:integer;begink:=0;for i:=1 to n do begin read(a[i]);if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;write('таких чисел:',k);end.

лан не бида =)

хах, действительно

const N = 5;var a:array[1..N] of integer;i, s: integer;begins:=0;for i:=1 to N do beginreadln(a[i]);If (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) thens:=s+1;end;writeln(s);end.

const n=10;var a:array[1..n]of integer;i,k:integer;begink:=0;for i:=1 to n do begin read(a[i]);if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;write('таких чисел:',k);end.