Question

Мова - Pascal , Lazarus IDE Створіть, використовуючи генератор випадкових чисел, одновимірний масив з 30 цілих чисел від 0 до 10. Визначте, яке число трапляється в цьому масиві найбільшу кількість разів. ​

Answer 1

Відповідь:

program MaxOccurrence;

const

 SIZE = 30; // Розмір масиву

 MAX_VALUE = 10; // Максимальне значення елемента масиву

var

 arr: array[1..SIZE] of integer; // Оголошення масиву

 i, j, count, maxCount, mode: integer; // Змінні для обробки даних

begin

 // Ініціалізація генератора випадкових чисел

 Randomize;

 // Заповнення масиву випадковими числами від 0 до 10

 for i := 1 to SIZE do

   arr[i] := Random(MAX_VALUE + 1);

 // Пошук найбільш часто зустрічаючогося числа

 mode := -1; // Початкове значення для найбільш часто зустрічаючогося числа

 maxCount := 0; // Початкова кількість зустрічей найбільш часто зустрічаючогося числа

 for i := 0 to MAX_VALUE do

 begin

   count := 0; // Кількість зустрічей поточного числа

   for j := 1 to SIZE do

     if arr[j] = i then

       count := count + 1;

   if count > maxCount then

   begin

     maxCount := count;

     mode := i;

   end;

 end;

 // Виведення результату

 writeln('Масив:');

 for i := 1 to SIZE do

   write(arr[i], ' ');

 writeln;

 writeln('Найбільш часто зустрічається число: ', mode);

end.

Пояснення:

Answer 2

Звісно, я можу надати вам код на мові Pascal, використовуючи Lazarus IDE, щоб створити одновимірний масив з 30 цілих чисел від 0 до 10 та визначити, яке число трапляється в цьому масиві найбільшу кількість разів.

program RandomArray;

const
  ArraySize = 30;
  MaxNumber = 10;

var
  RandomNumbers: array[1..ArraySize] of Integer;
  Frequency: array[0..MaxNumber] of Integer;
  i, maxCount, maxNumberIndex: Integer;

begin
  // Ініціалізація генератора випадкових чисел
  Randomize;

// Заповнення масиву випадковими числами від 0 до 10
  for i := 1 to ArraySize do
  begin
    RandomNumbers[i] := Random(MaxNumber + 1); // Random генерує випадкове число від 0 до MaxNumber
  end;

// Обнулення лічильника частот
  for i := 0 to MaxNumber do
  begin
    Frequency[i] := 0;
  end;

// Обчислення частоти кожного числа у масиві
  for i := 1 to ArraySize do
  begin
    Inc(Frequency[RandomNumbers[i]]);
  end;

// Знаходження числа, яке трапляється найчастіше
  maxCount := -1;
  for i := 0 to MaxNumber do
  begin
    if Frequency[i] > maxCount then
    begin
      maxCount := Frequency[i];
      maxNumberIndex := i;
    end;
  end;

// Виведення результату
  writeln('Масив випадкових чисел:');
  for i := 1 to ArraySize do
  begin
    write(RandomNumbers[i], ' ');
  end;

writeln;
  writeln('Число, яке трапляється найбільшу кількість разів: ', maxNumberIndex);
  writeln('Кількість разів: ', maxCount);

readln;
end.

Цей код генерує масив з випадковими числами від 0 до 10 та обчислює, яке число трапляється в цьому масиві найбільшу кількість разів.