Рамазан каждый день выходит из дома в 8.30. в 20.00 часы начали отставать на 1 минуту каждый час. во сколько рамазан должен выходить из дома чтоб не опоздать?

8:00 7:59 где то так

a - уровень продаж, а затем ЗП первого менеджера
b - второго менеджера
c - третьего
Уровень продаж у всех разный.
Язык программирования: Паскаль

var
a, b, c: integer;
begin
readln (a);
if a < 500 then
a := 0.03 * a + 200;
if (a > 500) and (a < 1000) then
a := 0.05 * a + 200;
if a > 1000 then
a := 0.08 * a + 200;
readln (b);
if b < 500 then
b := 0.03 * b + 200;
if (b > 500) and (b < 1000) then
b := 0.05 * b + 200;
if b > 1000 then
b := 0.08 * b + 200;
readln (c); 
if c < 500 then
c := 0.03 * c + 200;
if (c > 500) and (c < 1000) then
c := 0.05 * c + 200;
if c > 1000 then
c := 0.08 * c + 200; 
if (a > b) and (a > c) then
a := a +200;
else
if b > c then
b := b + 200;
else
c := c + 200;
wreteln ('ЗП первого менеджера: ', a, '$');
wreteln ('ЗП второго менеджера:  ', b, '$'); 
wreteln ('ЗП третьего менеджера:  ', c, '$')
end.

Пишу задание вторым номером, поэтому постараюсь на качество.

Нам нужно найти сначала сумму всего роста, потом поделить его на общее количество учеников. Потом сопоставить каждый элемент со средним числом и высчитать количество высоких учеников.

Будет это выглядить так:

uses crt; //Если используете паскаль ABC, это строка нужна для удобства

Var a: array [1..25] of real; i,otvet: integer; h,s:real;

//Объявляем переменные. Массив,среднее число и суммарный рост - любые числа. Сам ответ - целые числа

Begin

  For i:=1 to 25 do begin
                      Writeln('Введите рост ученика номер  ',i); readln(a[i]); 

                           //Здесь мы вводим рост с клавиатуры
                    end;
  For i:=1 to 25 do
   s:=s+a[i];  

    //находим суммарный рост всех учеников
   h:=s/25;
   // делим на их количество. Теперь переменная h - это средний рост
 For i:=1 to 25 do
  if a[i]>h then otvet:=otvet+1;
  // А здесь проверяем каждый элемет массива. Если он выше значения среднего роста, мы прибавляем единицу к переменной "otvet". Там мы считаем количество высоких уч.
  Writeln('Средний рост в классе равен ',h);
 Writeln('Количество высоких учеников в классе равно  ',otvet);

//вывод данных
end.