Задать вопрос
30 июня, 16:10

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

+1
Ответы (2)
  1. 30 июня, 17:26
    0
    var

    i, e : Integer;

    begin

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

    i : = 0;

    repeat

    Readln (e) ;

    if e > i then i : = e;

    until e = 0;

    Writeln ('Наибольшее число: ', i) ;

    end.
  2. 30 июня, 18:46
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Нужно составить программу с помощью Repeat, определяющую максимальное из всех введённых вами чисел. (Пусть признаком конца ввода чисел ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы