Паскаль Програмирования хелп!! . Найти минимальный массив кратный 3 но не кратный 5 массив из 15 целых чисел!

Вот пример кода на языке Pascal, который находит минимальный массив из 15 целых чисел, кратных 3, но не кратных 5:

program MinArray;

var
  arr: array[1..15] of Integer;
  i, num: Integer;

begin
  num := 0;

  for i := 1 to 15 do
  begin
    repeat
      num := num + 1;
    until (num mod 3 = 0) and (num mod 5 <> 0);

    arr[i] := num;
  end;

  writeln('Минимальный массив кратный 3, но не кратный 5:');

  for i := 1 to 15 do
    write(arr[i], ' ');

  readln;
end.

Этот код использует цикл repeat...until, чтобы находить следующее число, которое кратно 3, но не кратно 5. Затем оно добавляется в массив arr. В конце программы выводится полученный массив на экран.

Надеюсь, это поможет вам!