Впаскале надо переделать программу с одним циклом, на программу с двумя циклами. первый цикл: ввод данных в масив; второй цикл: цикл вывода 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.