Question

ПАСКАЛЬ!!! Напиши программу, которая вводит с клавиатуры целое число N и массив из N целочисленных элементов и выводит на экран в столбик все элементы массива, кратные 3, но не кратные 5.

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 ReadSeqInteger('Вводи элементы массива:', n)

     .Where(p -> (p mod 3 = 0) and (p mod 5 <> 0))

     .PrintLines

end.

Answer 2

Конечно! Вот пример программы на языке Pascal, который выполняет указанную задачу:

pascalCopy code
program ArrayElements;

var
  N, i: Integer;
  arr: array of Integer;

begin
  Write('Введите количество элементов в массиве: ');
  Readln(N);

  SetLength(arr, N);

  for i := 0 to N - 1 do
  begin
    Write('Введите элемент ', i + 1, ': ');
    Readln(arr[i]);
  end;

  Writeln('Элементы массива, кратные 3, но не кратные 5:');
  for i := 0 to N - 1 do
  begin
    if (arr[i] mod 3 = 0) and (arr[i] mod 5 <> 0) then
      Writeln(arr[i]);
  end;

  Readln;
end.

При запуске программы она сначала запрашивает количество элементов в массиве N. Затем она просит ввести каждый элемент массива. После этого программа выводит на экран все элементы массива, которые кратны 3, но не кратны 5.