Нужно составить программу с repeat, определяющую максимальное из всех введённых вами чиселпусть признаком конца ввода чисел является введённое число 0

program abc;

uses crt;

const n=30;

var

a: array[1..n] of integer;

i, max: integer;

begin

clrscr;  

for i: =1 to n do

read(a[i]);

max: =a[1];

for i: =2ton do

if a[i]> max then max: =a[i];

write('max=',max);

end.

var i, e : integer; begin

writeln('вводите числа: ');

i : = 0; repeat readln(e); if e > i then i : = e; until e = 0; writeln('наибольшее число: ', i); end.

Если первая дуга синусоиды - синусоида при 0 < = x < = pi, то область изображена на рисунке. точка с координатами (x, y) принадлежит области, если 0 < = x < = pi и 0 < y < sin(x), лежит на границе, если первое выполнено, и y = 0 или y = sin(x), а иначе не лежит в области. код (pascalabc.net 3.2): begin   var x, y: real;   readln(x, y);   if (0 < = x) and (x  < = pi) then     if (0 < y) and (y < sin(x)) then       writeln('внутри области')     else if (0 = y) or (y = sin(x)) then       writeln('на границе')     else       writeln('не принадлежит')   else     writeln('не принадлежит') end.

Требования безопасности перед началом работы:
1. Запрещено входить в кабинет в верхней одежде, головных уборах, с громоздкими предметами и едой
2. Запрещено входить в кабинет информатики в грязной обуви без бахил или без сменной обуви
3. Запрещается шуметь, громко разговаривать и отвлекать других учащихся
4. Запрещено бегать и прыгать, самовольно передвигаться по кабинету
5. Перед началом занятий все личные мобильные устройства учащихся (телефон, плеер и т.п.) должны быть выключены
6. Разрешается работать только на том компьютере, который выделен на занятие
7. Перед началом работы учащийся обязан осмотреть рабочее место и свой компьютер на предмет отсутствия видимых повреждений оборудования
8. Запрещается выключать или включать оборудование без разрешения преподавателя
9. Напряжение в сети кабинета включается и выключается только преподавателем

Требования безопасности во время работы:
1. С техникой обращаться бережно: не стучать по мониторам, не стучать мышкой о стол, не стучать по клавишам клавиатуры
2. При возникновении неполадок: появлении изменений в функционировании аппаратуры, самопроизвольного её отключения необходимо немедленно прекратить работу и сообщить об этом преподавателю
3. Не пытаться исправить неполадки в оборудовании самостоятельно
4. Выполнять за компьютером только те действия, которые говорит преподаватель
5. Контролировать расстояние до экрана и правильную осанку
6. Не допускать работы на максимальной яркости экрана дисплея
7. В случае возникновения нештатных ситуаций сохранять спокойствие и чётко следовать указаниям преподавателя.
Запрещается:
1. Эксплуатировать неисправную технику
2. При включённом напряжении сети отключать, подключать кабели, соединяющие различные устройства компьютера
3. Работать с открытыми кожухами устройств компьютера
4. Касаться экрана дисплея, тыльной стороны дисплея, разъёмов, соединительных кабелей, токоведущих частей аппаратуры
5. Касаться автоматов защиты, пускателей, устройств сигнализации
6. Во время работы касаться труб, батарей
7. Самостоятельно устранять неисправность работы клавиатуры
8. Нажимать на клавиши с усилием или допускать резкие удары
9. Пользоваться каким-либо предметом при нажатии на клавиши
10. Передвигать системный блок, дисплей или стол, на котором они стоят
11. Загромождать проходы в кабинете сумками, портфелями, стульями
12. Брать сумки, портфели за рабочее место у компьютера
13. Брать с собой в класс верхнюю одежду и загромождать ею кабинет
14. Быстро передвигаться по кабинету
15. Класть какие-либо предметы на системный блок, дисплей, клавиатуру.
16. Работать грязными, влажными руками, во влажной одежде
17. Работать при недостаточном освещении
18. Работать за дисплеем дольше положенного времени