Регистрация
Luvizum
07.02.2021 15:58
Информатика
Есть ответ 👍

Впаскале надо переделать программу с одним циклом, на программу с двумя циклами. первый цикл: ввод данных в масив; второй цикл: цикл вывода min и maх. изначальный код программы: program наибольшее_и_наименьшее_число; { программа для выявления } {наибольшего и наименьшего числа } var i,max,min: integer; z: array [1..10] of integer; begin {вводим любые целые числа в массив } i : = 1; write('z(',i,')='); readln(z[i]); z[i]: =max; z[i]: =min; i : = i+1; while i < = 10 do begin write('z(',i,')='); readln(z[i]); if (z[i]> max) then max: =z[i]; if (z[i] i : = i+1; end; writeln('наибольшее число=',max); writeln('наименьшее число=',min); end.

150
350
Посмотреть ответы 2

Ответы на вопрос:

2shIk
2shIk
4,7(38 оценок)
Var z: array [1..10] of integer; i,max,min: integer; begin writeln('введите массив: '); for i: = 1 to 10 do       begin       write('z(',i,') = ');       readln(z[i]);       end; max: =z[1]; min: =z[1]; for i: = 2 to 10 do       begin       if (z[i]> max) then max: =z[i];       if (z[i]< min) then min: =z[i];       end; writeln('наибольшее число = ',max); writeln('наименьшее число = ',min); end.
alexmerser830
alexmerser830
4,6(89 оценок)
2=10 7=111 17=10001 68=1000100

Популярно: Информатика