Question

даны n элементов массива определить количество элементов значение которых кратно первому элементы массива. Составить в паскаль

Answer 1

var

 a: array of integer;

 i, n, k: integer;

begin

 randomize;

 k := 0;

 write('Введите n = ');

 readln(n);

 SetLength(a, n);

 writeln(' *** Сгенерированный массив *** ');

 for i := 0 to Length(a) - 1 do

 begin

   a[i] := random(20) + 1;

   write(' ', a[i]);

 end;

 

 for i := 1 to Length(a) - 1 do

   if (a[i] mod a[0]) = 0 then Inc(k);

 

 writeln(#13 + 'Кол-во элементов кратных "', a[0], '" = ', k);

end.

Answer 2

Для решения данной задачи нахождения количества элементов массива, значение которых кратно первому элементу, можно использовать следующий алгоритм:

1. Объявить массив и ввести его элементы.
2. Задать переменную для подсчета количества элементов, удовлетворяющих условию.
3. Проитерироваться по массиву и для каждого элемента проверить, делится ли оно без остатка на первый элемент массива. Если делится, увеличить счетчик на 1.
4. Вывести полученное количество.

Ниже представлен код на языке Pascal:

pascalCopy code
program CountMultiplesOfFirstElement;

const
  MAX_SIZE = 100; // Максимальный размер массива (можно изменить по необходимости)

var
  arr: array[1..MAX_SIZE] of Integer;
  n, firstElement, countMultiples: Integer;
  i: Integer;

begin
  // Ввод размера массива
  write('Введите размер массива (n <= ', MAX_SIZE, '): ');
  readln(n);

  // Проверка на корректность размера массива
  if (n < 1) or (n > MAX_SIZE) then
  begin
    writeln('Некорректный размер массива. Размер должен быть от 1 до ', MAX_SIZE);
    Exit;
  end;

  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('arr[', i, ']: ');
    readln(arr[i]);
  end;

  // Сохранение первого элемента массива
  firstElement := arr[1];

  // Инициализация счетчика
  countMultiples := 0;

  // Подсчет количества элементов, кратных первому элементу
  for i := 2 to n do
  begin
    if arr[i] mod firstElement = 0 then
      Inc(countMultiples);
  end;

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

Программа позволяет пользователю ввести размер массива и его элементы. Затем программа ищет элементы, которые кратны первому элементу, и выводит их количество.