В паскале и без функции рандома, пожалуйста. Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 3 и 5.
Как массив заполнить надо ?
в смысле?
Массив заполняется с клавиатуры ?
да
А размерность массива не известна ?
нет
Const n = 20; var a:array[1..n] of integer; i:integer; begin for i:=1 to n do readln(a[i]); for i:=1 to n do if (a[i] mod 3 = 0) and (a[i] mod 5=0) then Writeln('elem nomer ' , i) end.
ввожу 1 потом 5 потом 15 и ничего
он не делает только их и показывает что я ввел и все.
Самая первая строчка, это размер массива, т.е кол-во чисел которые ты будешь вводить, измени const n = 2, и ты будешь вводить два числа
Спасибо
только он странно что если ввести первое число к примеру 55 а второе 3 то ничего не пишет, а если первое ввести 3 а второе 60 то он напишет ответ правильный...
Число 55 и 3, они не кратные одновременно 3 и 5. На сколько я понял число должно быть кратно 3 и 5. Или может условие было что число должно быть кратно или 3 или 5 ?
все хорошо, я просто не понял сначала а потом дошло до меня что я не те числа вводил! =)
слушай
помоги у меня еще одна задача есть помоги пожалуйста...
Сейчас гляну