GAECHKA
Твоя помощница в решении задач

Заменить все минимальные элементов массива на сумму четных элементов.

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

Источник


1 ответ
WriteLn('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
mn:=a[1]; mx:=mn; {s:=0;}
for i:=1 to n do begin
  if not Odd(a[i]) then s:=s+a[i];
  if mn>a[i] then mn:=a[i]
  else if mx[i] then mx:=a[i];
end;
for i:=1 to n do if a[i]=mn then a[i]:=s;
WriteLn('Max = ',mx);
WriteLn('A''='); for i:=1 to n do Write(' ',a[i]); WriteLn;