Question

Разработать программу, подсчитывающую количество элементов кратных 5 в динамическом массиве размерности n. ~Pascal~

Answer 1

Решение представлено во вложении.

Язык: Pascal

Answer 2

##

var n := ReadInteger;

var a := ArrRandom(n, -99, 99);

a.Println;

a.Where(t -> t.Divs(5)).Count.Print

Answer 3

Конечно, вот пример программы на языке Pascal, которая подсчитывает количество элементов, кратных 5, в динамическом массиве размерности n:

pascalCopy code
program CountMultiplesOfFive;

var
  dynamicArray: array of Integer;
  n, i, count: Integer;

begin
  Write('Введите размерность массива: ');
  Readln(n);

  // Выделяем память под динамический массив
  SetLength(dynamicArray, n);

  // Заполняем массив случайными числами от 1 до 100
  for i := 0 to n - 1 do
  begin
    dynamicArray[i] := Random(100) + 1;
  end;

  // Выводим элементы массива
  Write('Массив: ');
  for i := 0 to n - 1 do
  begin
    Write(dynamicArray[i], ' ');
  end;
  Writeln;

  // Подсчитываем количество элементов, кратных 5
  count := 0;
  for i := 0 to n - 1 do
  begin
    if dynamicArray[i] mod 5 = 0 then
    begin
      count := count + 1;
    end;
  end;

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

end.

Программа сначала запрашивает у пользователя размерность массива n, затем заполняет массив случайными числами от 1 до 100. После этого она подсчитывает количество элементов, кратных 5, и выводит результат на экран.