быстрее решите пж меня сейчас сожрут бегооом ДАЮ 100БАЛОВ НАПИШИТЕ КАК НА 7 КЛАС СРОЧНОООО! ДАЮ 100 БАЛОВ!!!! РЕШИТЕ ВАРИАНТ 2

Объяснение:

New chat



Створіть проєкт, у якому вводяться кількості відвідувачів музею в кожний з 10 днів і визначається, скільки днів кількість відвідувачів перевищува- ла 100 осіб. Використайте одновимірний масив (список). Мова програмування Паскаль, будь ласка

Ось приклад програми на Pascal, яка дозволяє вводити кількість відвідувачів музею в кожний з 10 днів та визначає, скільки днів кількість відвідувачів перевищувала 100 осіб:

scssCopy code

program MuseumVisitors; const NUM_DAYS = 10; var visitors: array[1..NUM_DAYS] of Integer; i, count: Integer; begin count := 0; writeln('Enter the number of visitors for each day:'); for i := 1 to NUM_DAYS do begin write('Day ', i, ': '); readln(visitors[i]); if visitors[i] > 100 then count := count + 1; end; writeln(); writeln('Number of days with more than 100 visitors: ', count); readln(); end.

Пояснення до програми:

Ми визначаємо константу NUM_DAYS, яка вказує на кількість днів, для яких ми будемо вводити кількість відвідувачів.

Ми створюємо масив visitors типу array[1..NUM_DAYS] of Integer, який міститиме кількість відвідувачів для кожного дня.

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

Після того, як ми ввели кількість відвідувачів для кожного дня, ми виводимо на екран кількість днів, коли кількість відвідувачів перевищувала 100 осіб.

Останній readln слугує для того, щоб програма не закінчувалась одразу