В паскале и без функции рандома, пожалуйста.
Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 3 и 5.
Provider:
Как массив заполнить надо ?
в смысле?
Массив заполняется с клавиатуры ?
да
А размерность массива не известна ?
нет
Ответы
Ответ дал:
1
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.
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 ?
все хорошо, я просто не понял сначала а потом дошло до меня что я не те числа вводил! =)
слушай
помоги у меня еще одна задача есть помоги пожалуйста...
Сейчас гляну
Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад