Question

Створіть проект у якому водяться кількості відвідувачів музею в кожної з 10 днів і визначається скільки днів кількість відвідувачів перевищувала 100 осіб використайте одновимірний масив LAZARUS

Answer 1

program MuseumVisitors;

var

 visitors: array[1..10] of integer; // масив для зберігання кількості відвідувачів

 i, count: integer; // лічильники та змінна для підрахунку кількості днів з відвідуванням більше 100 осіб

begin

 count := 0; // ініціалізуємо змінну

 writeln('Enter the number of visitors for each of the 10 days: ');

 for i := 1 to 10 do // зчитуємо кількість відвідувачів для кожного з 10 днів

 begin

   readln(visitors[i]);

   if visitors[i] > 100 then // перевіряємо, чи перевищує кількість відвідувачів 100 осіб

     count := count + 1; // якщо так, то збільшуємо лічильник на 1

 end;

 writeln('Number of days with more than 100 visitors: ', count);

 readln;

end.

У цій програмі ми використовуємо масив visitors для зберігання кількості відвідувачів для кожного з 10 днів, а також лічильник count для підрахунку кількості днів, коли кількість відвідувачів більше 100. За допомогою циклу for ми зчитуємо кількість відвідувачів для кожного з днів та перевіряємо, чи перевищує ця кількість 100 осіб. Якщо так, то збільшуємо лічильник count на 1. На виході ми виводимо кількість днів, коли було більше 100 відвідувач