program pyat;
var
x:array [1..200] of integer;
i,k,n: integer;
begin
write ('введите n<=200'); readln (n);
for i:=1 to n do
begin
write ('x[' ,i, ']= ');
readln (x[i]);
end;
k:=0;
for i:=1 to n do
if (x[i] mod 3=0) and (x[i] mod 5<>0) then //вот так она работает. А у тебя было: if i mod 3 =0 and mod 5<>0
begin
k:=k+1;
end;
writeln (k);
end.
Задача на массивы |