массивы

[-ushёl-]

кто нибудь может подсказать как найти в массиве любое число кратное А и не кратное В? Числа A и B вводяться с клавиатуры.Задачу вроде решил,но условие if проверяет кратен или не кратен последний элемент массива???Как возможно сделать,что бы проверялся весь массив чисел на кратность введённых чисел??? моё решение:

var
 a,b,c:integer;
     t:boolean;
     M:array[1..5] of integer;
     begin
      repeat
       for a:=1 to 5 do
        M[a]:=random(100);
         writeln('введите 2 числа в пределах от 1 до 10');
         readln(b,c);
         t:=(M[a] mod b = 0)and not(M[a] mod c = 0);{может здесь проблема???}
          if t = true then
                 begin
                  for a:=1 to 5 do
                  write(M[a], '|') ; 
                  writeln('правда-',t)
                 end
                 else
                    begin
                     for a:=1 to 5 do
                     write(M[a], '|');
                     writeln('ложь-',t)
                    end;
         until 
            t = true;   
       end.

[Jean-Esther]

В отмеченом месте переменная a как таковая неопределена в своем значении. До этого она была счетчиком цикла, стало быть, возможно, она примет значение 5. Следовательно, в том месте t:=(M[5] mod b=0)and not (M[5] mod c=0) идет проверка пятого элемента на условие. Другие элементы не рассматриваются.

[Sazary]

Не понимаю, зачем вам логическая переменная и цикл repeat.
Вот цикл:

for i:=1 to n do
 if (mas[i] mod A = 0) and (mas[i] mod B <> 0) then
   begin
   write(mas[i]:4);
   if not t then t := true;
   end;

Полный код:

uses crt;
const n=10;
var
A,B : integer;
i : integer;
mas : array[1..n] of integer;
t : boolean;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 mas[i] := random(100);
 write(mas[i]:4);
 end;
writeln;
writeln;
write('Enter A: ');
readln(A);
write('Enter B: ');
readln(B);

t := false;
writeln('Chisla kratnye A i ne kratnye B: ');
for i:=1 to n do
 if (mas[i] mod A = 0) and (mas[i] mod B <> 0) then
   begin
   write(mas[i]:4);
   if not t then t := true;
   end;
if not t then writeln('Net takih elementov!');
readln;
end.

[-ushёl-]

цикл repeat-ввёл для себя,чтобы каждый раз не компилировать заново.а логическая переменная здесь нужна по заданию:Заданы два числа А и В.Переменной t присвоить значение истина,если в одномерном массиве существует хотя бы один элемент,кратный А и не кратный В.

[-ushёl-]

а зачем ты ввёл clrscr;
randomize??

[Sazary]

-ushёl- Добавил в листинг.
clrscr; - очистка экрана. Требует подключения модуля crt (uses crt; )
randomize - инициализирует генератор случайных чисел (чтобы при каждом запуске программы числа были разные)

[-ushёl-]

ясно.спасибо