Question

Задан массив из 10 целых чисел. Замените все положительные элементы данного массива его максимальным элементом.

Answer 1

var a:array[1..10]of integer;

i,max:integer;

begin

for i:=1 to 10 do readln(a[i]);

max:=a[1];

for i:=2 to 10 do if max<a[i] then max:=a[i];

for i:=1 to 10 do if a[i]>0 then a[i]:=max;

writeln;

for i:=1 to 10 do write(a[i],' ');

end.

Answer 2

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

1. Создадим массив из 10 целых чисел: int[] numbers = {2, -5, 10, -7, 3, 0, 8, -1, 6, 4};

2. Найдем максимальный элемент в массиве. Для этого создадим переменную, в которую будем сохранять текущий максимальный элемент: int max = numbers[0]; Затем пройдемся по всем элементам массива и сравним каждый элемент с текущим максимальным. Если элемент больше текущего максимального, то обновим значение переменной max: for(int i = 1; i < numbers.length; i++) { if(numbers[i] > max) { max = numbers[i]; } }

3. Заменим все положительные элементы массива его максимальным элементом. Для этого снова пройдемся по всем элементам массива и, если элемент положительный, заменим его на значение переменной max: for(int i = 0; i < numbers.length; i++) { if(numbers[i] > 0) { numbers[i] = max; } }

4. Выведем получившийся массив на экран: for(int i = 0; i < numbers.length; i++) { System.out.print(numbers[i] + " "); }

Результатом выполнения данного кода будет массив, в котором все положительные элементы заменены его максимальным элементом. Например, для данного массива [2, -5, 10, -7, 3, 0, 8, -1, 6, 4] результатом будет [10, -5, 10, -7, 10, 0, 10, -1, 10, 10].