Паскаль. с клавиатуры введены 6 целых чисел. составьте программу, которая найдет из них наибольшее из них. использовать процедуру поиска большего из двух (бид).

//pascalabc.net 3.4.2

var x, max: integer;

procedure my_max(x1, x2: ^integer);

begin

  if (x2^ > x1^) then x1^ : = x2^;

end;

begin

  loop 6 do

  begin

    x : = readinteger();

    my_max(@max, @x);

  end;

  write(max);

end.

ответ: с техникой обращаться бережно: не стучать по мониторам, не стучать мышкой о стол, не стучать по клавишам клавиатуры

2. при возникновении неполадок: появлении изменений в функционировании аппаратуры, самопроизвольного её отключения необходимо немедленно прекратить работу и сообщить об этом преподавателю

3. не пытаться исправить неполадки в оборудовании самостоятельно

4. выполнять за компьютером только те действия, которые говорит преподаватель

5. контролировать расстояние до экрана и правильную осанку

6. не допускать работы на максимальной яркости экрана дисплея

7. в случае возникновения нештатных ситуаций сохранять спокойствие и чётко следовать указаниям преподавателя.

объяснение: