1) Дан массив A (n). Положительные элементы массива заменить на их сумму, а отрицательные элементы уменьшить на минимальный.

Question

Информатика

Берта

28 марта, 17:14

1) Дан массив A (n). Положительные элементы массива заменить на их сумму, а отрицательные элементы уменьшить на минимальный.

+1

Ответы (1)

Знаете ответ на вопрос?

Ела · Answer 1

Const n=10;

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

i, s, min:integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to n do

begin

a[i]:=random (21) - 10;

write (a[i]:4) ;

end;

writeln;

s:=0;

min:=a[1];

for i:=1 to n do

begin

if a[i]>0 then s:=s+a[i];

if a[i]
end;

writeln ('s = ', s,' min = ', min) ;

for i:=1 to n do

if a[i]>0 then a[i]:=s

else if a[i]<0 then a[i]:=a[i]-min;

writeln ('Измененный массив:') ;

for i:=1 to n do write (a[i]:4) ;

writeln;

end.

Пример:

Исходный массив:

9 - 3 - 5 7 1 5 - 6 9 - 8 7

s = 38 min = - 8

Измененный массив:

38 5 3 38 38 38 2 38 0 38