Question

ПОМОГИТЕ!!!!!!Написать программу на паскале. Вычистить количество нечетных элементов массива кратных 7.ПОЖАЛУЙСТА,ПОМОГИТЕ

Answer 1

Вычистить количество нечетных элементов массива...

Answer 2

Конечно, помогу! Вот пример программы на языке Паскаль, которая находит количество нечетных элементов массива, кратных 7:

pascalCopy code
program CountOddMultiplesOfSeven;

const
  N = 10; // Здесь указываем размер массива (можно изменить на нужное значение)

var
  arr: array[1..N] of integer;
  i, count: integer;

begin
  // Заполнение массива случайными числами
  randomize;
  for i := 1 to N do
    arr[i] := random(100); // Массив будет заполнен случайными числами от 0 до 99

  // Вывод массива на экран
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  // Подсчет количества нечетных элементов массива, кратных 7
  count := 0;
  for i := 1 to N do
  begin
    if (arr[i] mod 2 <> 0) and (arr[i] mod 7 = 0) then
      count := count + 1;
  end;

  // Вывод результата
  writeln;
  writeln('Количество нечетных элементов массива, кратных 7: ', count);

end.

Обратите внимание, что в данном примере размер массива указан равным 10 (константа N), но вы можете изменить это значение на нужное вам количество элементов. Кроме того, элементы массива заполняются случайными числами от 0 до 99 с помощью функции random(100). Если вам требуется другой способ заполнения массива, пожалуйста, уточните.