В паскале и без функции рандома, пожалуйста. Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 3 и 5.
В паскале и без функции рандома, пожалуйста.
Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 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.
Не нашли ответ?
Похожие вопросы