Напишите программу на языке Pascal, которая поможет найти работника, который работает наибольшее количество времени

Dasha

48

Конечно, я могу помочь вам с задачей по программированию на языке Pascal. Для решения этой задачи нам понадобится использовать массивы и циклы. Вот подробное пошаговое решение:

1. Создайте массивы для хранения информации о работниках и их отработанных часах. Нам понадобятся два массива: один для хранения имен работников, и второй - для хранения количества отработанных ими часов. Предположим, что у нас в ресторане есть 10 работников, тогда объявление массивов может выглядеть так:

pascal

   var

     workers: array[1..10] of string;

     hours: array[1..10] of integer;

   

2. Введите данные о работниках и их отработанных часах с помощью оператора `ReadLn`. Например:

pascal

   writeln("Введите данные о работниках и их отработанных часах:");

   for i := 1 to 10 do

   begin

     write("Имя работника ", i, ": ");

     ReadLn(workers[i]);

     write("Количество отработанных часов: ");

     ReadLn(hours[i]);

   end;

   

3. Найдите работника с наибольшим количеством отработанных часов, используя цикл `for`, и сохраните его индекс:

pascal

   var

     maxHours: integer;

     maxIndex: integer;

   

   maxHours := hours[1];  // Предположим, что первый работник отработал наибольшее количество часов

   maxIndex := 1;

   

   for i := 2 to 10 do

   begin

     if hours[i] > maxHours then

     begin

       maxHours := hours[i];

       maxIndex := i;

     end;

   end;

   

4. Выведите результат, сообщив имя работника с наибольшим количеством отработанных часов:

pascal

   writeln("Работник с наибольшим количеством отработанных часов:");

   writeln("Имя: ", workers[maxIndex]);

   writeln("Количество часов: ", maxHours);

   

Вот и все! Теперь у вас есть программа на языке Pascal, которая поможет найти работника с наибольшим количеством отработанных часов в ресторане. Если у вас возникнут вопросы или понадобится дополнительное объяснение, пожалуйста, сообщите мне.