Помогите пожалуйста! В Паскале надобно переделать программку с одним циклом, на

Помогите пожалуйста! В Паскале надобно переработать программку с одним циклом, на программку с 2-мя циклами.
1-ый цикл: ввод данных в масив;
2-ой цикл: цикл вывода 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 lt;= 10 do
begin
Write('Z(',i,')=');
Readln(Z[i]);
If (Z[i]gt;max) then max:=Z[i];
If (Z[i] i := i+1;
end;
Writeln('Наибольшее число=',max);
Writeln('Меньшее число=',min);
end.

Artem Trupkov 2019-09-06 11:39:35

Непременно использовать

Викулька 2019-09-06 11:40:43

While, либо можно For ?

Александр Будинов 2019-09-06 11:47:58

Если нужно что-то переработать, пожалуйста, пишите в комменты, что конкретно