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.

Answer 2

Решение: Переписывание программы на Паскале с двумя циклами

Данная программа на Паскале предназначена для поиска наибольшего и наименьшего числа в массиве. Она содержит один цикл для ввода данных в массив и условные операторы для поиска максимального и минимального числа.

Для переписывания программы на Паскале с двумя циклами, нам потребуется разделить операции ввода данных и поиска максимального и минимального чисел на два разных цикла.

Вот переписанная версия программы с двумя циклами:

Program наибольшее_и_наименьшее_число;

Var
  i, max, min: integer;
  Z: array[1..10] of integer;

Begin
  { Цикл для ввода данных в массив }
  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.

В этой программе первый цикл используется для ввода данных в массив Z, а второй цикл используется для поиска наибольшего и наименьшего чисел в массиве.

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь задавать.