Question

Задан целочисленный массив из 150 элементов выделить в отдельный массив все его элементы кратные 5. Паскаль!!!! 40 баллов

Answer 1

1+2+3+4це все додати а потом помножити на 33і що дорівнює записати

Answer 2

Вот пример решения задачи на языке Pascal:

pascalCopy code
program ArrayMultiples;
const
  SIZE = 150;
var
  array1: array[1..SIZE] of Integer;
  multiples: array of Integer;
  i, count: Integer;
begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to SIZE do
    array1[i] := Random(100); // Здесь можно ввести значения массива с клавиатуры
  
  // Поиск кратных 5 элементов и запись их в новый массив
  count := 0;
  SetLength(multiples, SIZE); // Устанавливаем начальную длину массива
  for i := 1 to SIZE do
  begin
    if array1[i] mod 5 = 0 then
    begin
      count := count + 1;
      multiples[count] := array1[i];
    end;
  end;
  
  // Вывод элементов нового массива
  writeln('Элементы, кратные 5:');
  for i := 1 to count do
    writeln(multiples[i]);
  
  readln;
end.

Эта программа создает целочисленный массив array1 из 150 элементов и заполняет его случайными числами. Затем программа находит элементы, кратные 5, и записывает их в новый динамический массив multiples. Наконец, программа выводит элементы нового массива на экран.

Обратите внимание, что я использовал динамический массив multiples, потому что заранее неизвестно, сколько элементов будет кратными 5. Это позволяет избежать выделения лишней памяти.

Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.