Question

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

Answer 1

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.