Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности чисел. ниже представлен вид экрана во время работы программы: вводите последовательно числа. для завершения ввода введите ноль. 1 число: 33 2 число: 45 3 число: -10 4 число: 0 максимальное число: 45

Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('');
Writeln('Максимальное число: ', max);
Writeln();
end.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём, Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  текЧисло, макс, сч: ЦЕЛ;

УКАЗ
  сч := 1;
  Вывод.Цепь("Вводите последовательно числа.^");
  Вывод.Цепь("Для завершения ввода введите ноль.^");
  Вывод.Цепь("");
  ПОВТОРЯТЬ
    Вывод.ЧЦел("^%d число: ", сч, 0, 0, 0);
    текЧисло := Приём.Число();
    ЕСЛИ текЧисло > макс ТО макс := текЧисло КОН;
    УВЕЛИЧИТЬ(сч)
  ДО текЧисло = 0;
  Вывод.Цепь("^");
  Вывод.ЧЦел("^Максимальное число: %d", макс, 0, 0, 0)

КОН Задание.

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

в окончательном тексте сноски размещаются автоматически в разделе «примечания». также автоматически после фрагмента поясняемого текста ставится знак сноски (цифра или значок), связывающий поясняемый текст со сноской, а в «примечаниях» перед сноской ставится значок возврата к поясняемому тексту. если кликнуть мышкой по знаку сноски, то текст переместится к сноске, если по значку возврата — то к поясняемому тексту.

Роботтың айналу бұрышын немесе айналу жылдамдығын өлшеуге арналған. Датчик корпусының жоғарғы жағында сенсор жұмыс істейтін жазықтықты көрсететін екі көрсеткі бар. Сондықтан сенсорды роботқа дұрыс орнату маңызды. Сондай-ақ, дәлірек өлшеу үшін гироскопиялық сенсорды бекіту оның робот корпусына қатысты қозғалғыштығын болдырмауы керек. Роботтың түзу қозғалысы кезінде де гироскопиялық сенсор бұрыш пен айналу жылдамдығын өлшеу кезінде қате жинай алады, сондықтан өлшеудің алдында ток датчигінің көрсеткішін 0 қалпына келтіру керек. Роботты сағат тіліне қарсы айналдыру теріс өлшеу мәндерін тудырады, ал сағат тілімен айналдыру оң өлшемдерді тудырады. 2. Қозғалыс датчиктері

Объяснение: