Question

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

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i, pr: integer;

begin

 for i := 1 to 10 do arr[i] := random(-10, 10);

 writeln('Массив: ', arr);

 for i := 1 to 10 do begin

   pr := pr * arr[i];

   arr[i] := arr[i] * 10;

 end;

 writeln('Произведение элементов: ', pr);

 writeln('Новый массив: ', arr);

end.