Question

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

Answer 1

АЛГОРИТМ (я так понимаю это паскаль (надеюсь, ибо на других языках может быть по-другому))

Дано:

массив, длина 20, вещественного типа (A)

Вспомогательные переменные:

переменная-счетчик, целого типа (i); переменная для хранения суммы, вещественного типа (s)

от i = (начало массива) до (конец массива) делать

 ввод A[i]

s присвоить 0

от i = (начало массива) до (конец массива) делать

 s присваивать (s + A[i])

вывод s

На всякий, прогу на паскале:

var

 A: array[1..20] of real;

 i: integer;

 s: real;

begin

 for i := 1 to 20 do

   readln(A[i]);

 s := 0;

 for i := 1 to 20 do

   s := s + A[i];

 writeln(s);

end.

Answer 2

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.