Question

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

Answer 1

Uses crt;const n=5;var  a:array[1..n] of integer;  i,max,min: integer;begin clrscr;for i := 1 to n do begina[i]:=random(20);write(a[i]:4);end;for i := 1 to n do beginmin:=maxint;if a[i]>max then max:=a[i];if a[i]<min then min:=a[i];end;writeln;for i := 1 to n do beginif ((a[i]=max) or (a[i]=min)) then a[i]:=max+min;write(a[i]:4);end; writeln;writeln('max = ', max, '  min = ', min);end.

Answer 2

Для решения данной задачи вам потребуется выполнить следующие шаги:

1. Объявите одномерный массив и заполните его значениями. Например: ```pascal const N = 10; // размер массива var arr: array[1..N] of Integer; // объявление массива i: Integer; // счетчик для цикла

begin // заполнение массива случайными значениями Randomize; for i := 1 to N do arr[i] := Random(100); end. ```

2. Найдите максимальное и минимальное значение в массиве и их количество. Для этого создайте переменные `maxValue`, `minValue`, `maxCount` и `minCount`, инициализируйте их значениями первого элемента массива, а затем пройдитесь по всем элементам массива, сравнивая их с текущими значениями `maxValue` и `minValue`. При необходимости обновляйте значения максимального и минимального элементов, а также счетчиков `maxCount` и `minCount`. Например: ```pascal var maxValue, minValue, maxCount, minCount: Integer; // переменные для хранения максимального и минимального значения, а также их количества i: Integer; // счетчик для цикла

begin // инициализация переменных maxValue := arr[1]; minValue := arr[1]; maxCount := 1; minCount := 1;

// поиск максимального и минимального значения и их количества for i := 2 to N do begin if arr[i] > maxValue then begin maxValue := arr[i]; maxCount := 1; end else if arr[i] = maxValue then maxCount := maxCount + 1;

if arr[i] < minValue then begin minValue := arr[i]; minCount := 1; end else if arr[i] = minValue then minCount := minCount + 1; end; end. ```

3. Замените все максимальные и минимальные элементы в массиве их суммой. Для этого создайте переменную `sum` и пройдитесь по всем элементам массива, заменяя значения элементов, равных максимальному или минимальному, на значение `sum`. Например: ```pascal var sum: Integer; // переменная для хранения суммы

begin // вычисление суммы sum := maxValue + minValue;

// замена максимальных и минимальных элементов на сумму for i := 1 to N do begin if arr[i] = maxValue then arr[i] := sum;

if arr[i] = minValue then arr[i] := sum; end; end. ```

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