Створіть проєкт, у якому вводяться кількості відвідувачів музею в кожний
з 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 слугує для того, щоб програма не закінчувалась одразу
Ответ:Ось приклад програми на мові Паскаль, яка виконує завдання, описане в питанні:
program MuseumVisitors;
const
DaysPerPeriod = 10; // Кількість днів у періоді
var
Visitors: array[1..DaysPerPeriod] of Integer; // Масив для зберігання кількості відвідувачів
i, DaysOver100: Integer; // Лічильник днів, коли кількість відвідувачів була більше 100
begin
DaysOver100 := 0; // Початкове значення лічильника
// Зчитування кількості відвідувачів за кожен день періоду
for i := 1 to DaysPerPeriod do
begin
writeln('Enter the number of visitors for day ', i, ': ');
readln(Visitors[i]);
// Якщо кількість відвідувачів перевищує 100, збільшуємо лічильник
if Visitors[i] > 100 then
begin
DaysOver100 := DaysOver100 + 1;
end;
end;
writeln('The number of days with more than 100 visitors is: ', DaysOver100);
readln;
end.
Объяснение:В даній програмі ми використовуємо одновимірний масив Visitors, щоб зберігати кількість відвідувачів за кожен день періоду. Цикл for використовується для зчитування цих даних та для підрахунку днів, коли кількість відвідувачів перевищувала 100 осіб. Результат виводиться на екран за допомогою процедури writeln.
Цю програму можна запустити в середовищі PascalABC.NET, що можна завантажити з офіційного сайту: https://pascalabc.net/.