Question

(Составить программу,массивы)
Записать в массив 30 случайных чисел от 2 до 40 . Вывести на экран номера тех элементов массива, значение которых кратно 7

Answer 1

var a: array[1..30] of Integer;
 i: Integer;
Begin
  write('Кратные 7: ');
  for i := 1 to 30 do
  begin
    a[i] :=random(39) + 2;
    if a[i] mod 7 = 0 then write(a[i],' ');
  end;
End.