Question

Утроить элементы массива меньше 20.Рассчитать сумму всех элементов изменённого массива.

Answer 1

Program NoName;

Var i,n,sum: integer;

a:array[1..9999] of integer;

Begin

sum:=0;

Write ("Количество элементов массива = ");

Read (n);

For i:=1 to n do

Begin

Writeln(a[i]);

End;

Writeln ;

For i:=1 to n do

Begin

If a[i] < 20 then

a[i] := a[i] * 3;

sum:=sum + a[i];

Writeln(a[i]);

End;

Write (sum);

End.