Question

В среде программы Pascal abc составьте алгоритм по примеру 3.20.Проверьте работу программы доя 6 элементов массива 2,5,6,8,9,7

Answer 1

Ответ:

Алгоритм:

1. Объявить массив из 6 элементов.

2. Заполнить массив значениями.

3. Объявить переменную max и присвоить ей значение первого элемента массива.

4. Объявить переменную min и присвоить ей значение первого элемента массива.

5. Пройти по всем элементам массива и сравнить их со значением переменной max. Если элемент больше max, то присвоить его значение переменной max.

6. Пройти по всем элементам массива и сравнить их со значением переменной min. Если элемент меньше min, то присвоить его значение переменной min.

7. Вывести на экран значения переменных max и min.

Код программы на Pascal abc:

```

program MaxMin;

var

 arr: array[1..6] of integer;

 i, max, min: integer;

begin

 arr[1] := 2;

 arr[2] := 5;

 arr[3] := 6;

 arr[4] := 8;

 arr[5] := 9;

 arr[6] := 7;

 max := arr[1];

 min := arr[1];

 for i := 2 to 6 do

 begin

   if arr[i] > max then

     max := arr[i];

   if arr[i] < min then

     min := arr[i];

 end;

 writeln('Максимальное значение в массиве: ', max);

 writeln('Минимальное значение в массиве: ', min);

 readln;

end.

```

Результат работы программы:

```

Максимальное значение в массиве: 9

Минимальное значение в массиве: 2

```

Объяснение: