Решить задачи: «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.

Оценить ответ
Не устраивает ответ?

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

Найти другие ответы

Загрузить картинку (не более 2мб)
Недавние вопросы
Другие вопросы в категории Информатика

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

Решите пожалуйста!!!

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

Решите пожалуйста!!!

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

Продолжение 3 класс​

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

A:=28B:=35B:=(B - 5)/6A:=B* (A+B-3)​

Вопросы из других категорий

Алгебра, опубликовано 13.06.2019

Даю 20 баллов. Задание 3.3

Математика, опубликовано 13.06.2019

.....2x+2=4;pliizzzzpomogite​