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.

Пояснення: