Question

Задан массив из 10 элементов случайным образом в промежутке от 0 до 20. Вывести индексы элементов кратные 3 и 5 одновременно.Помогите пожалуйста!!​

Answer 1

Ответ:

var a:array[1..10] of integer;

   i:integer;

begin

 for i:=1 to 10 do begin

   a[i]:=Random(0, 20);

 end;

 i:=1;

 while i<11 do begin

   if (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then

   print(i);

   i+=1;

 end;

end.

Объяснение:

нужны пояснения - скажи