Question

Створіть проєкт, у якому вводяться кількості відвідувачів музею в кожний

з 10 днів і визначається, скільки днів кількість відвідувачів перевищува-

ла 100 осіб. Використайте одновимірний масив (список).

LAZARUS

Answer 1

program MuseumVisitors;

const

NumDays = 10; // Кількість днів

var

Visitors: array[0..NumDays-1] of Integer; // Масив кількості відвідувачів

i, ExceedCount: Integer; // Лічильник циклу та кількості днів, коли відвідувачів було більше 100

begin

ExceedCount := 0; // Ініціалізація лічильника

// Введення даних

for i := 0 to NumDays-1 do

begin

WriteLn('Enter the number of visitors for day ', i+1, ': ');

ReadLn(Visitors[i]);

end;

// Підрахунок кількості днів, коли відвідувачів було більше 100

for i := 0 to NumDays-1 do

begin

if Visitors[i] > 100 then

Inc(ExceedCount);

end;

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

WriteLn('The number of days when the visitors exceeded 100 is: ', ExceedCount);

ReadLn;

end.