Опубликовано в категории Информатика, 13.06.2019

Решить задачи: «4»: Ввести три числа и найти наибольшее из них. Пример: Введите три числа: 4 15 9 Наибольшее число 15 «5»: Ввести пять чисел и найти наибольшее из них. Пример: Введите пять чисел: 4 15 9 56 4 Наибольшее число 56

Ответ оставил Гость

4:var a: array [1..3] of integer;    i,min,max : integer;begin    for i:= 1 to 3 do    begin        write('a[',i,'] = ');        read(a[i]);        writeln;    end;    min:= a[1];    max:= a[1];    for i:= 1 to 3 do    begin        if a[i] < min then        begin            min:= a[i];        end;    end;    for i:= 1 to 3 do    begin        if a[i] > max then        begin            max:= a[i];        end;    end;    writeln('min = ',min);    writeln('max = ',max);end.5:var a: array [1..5] of integer;    i,max : integer;begin    for i:= 1 to 5 do    begin        write('a[',i,'] = ');        read(a[i]);        writeln;    end;    max:= a[1];    for i:= 1 to 3 do    begin        if a[i] > max then        begin            max:= a[i];        end;    end;    writeln('max = ',max);end.

Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.