const Sz = 50; // Размер массива
var
a: array [1..Sz] of integer;
size: integer; // Количество элементов в массиве
i: integer;
begin
//Заполнение случайными числами
size := 20;
for i:=1 to size do
a[i] := Random(100);
writeln('Элементы массива: ');
for i:=1 to size do
write(a[i],' ');
//Находим числа кратные 3 и 5
writeln('Номера элементов кратных 3-м: ');
for i:=1 to size do
if (a[i] mod 3) = 0 then
write(a[i],' ');
writeln('Номера элементов кратные 5-ти: ');
for i:=1 to size do
if (a[i] mod 5) = 0 then
write(a[i],' ');
end.
program mas_krat_3i5;
const n=15;
var
a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
a[i]:=random(101);
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
if (a[i]mod 3 =0)and(a[i]mod 5 =0)
then
write(i,' ');
readln;
end.
