Дан массив случайных чисел,получить сумму и творенье элементов массива

Дан массив случайных чисел,получить сумму и творение элементов массива

Задать свой вопрос
1 ответ


const n = 10; //кол-во частей в массиве

var i, sum, proiz: longint;  

a: array [1..n] of longint;

begin sum:=0; proiz:=1;  

 for i := 1 to n do  

 begin   

  a[i] := random(10)+1; //наполнение массива   

  write(a[i], ' '); //вывод  

 end;  

writeln; 

  for i := 1 to n do  

 begin    

 sum := sum + a[i]; //сумма   

  proiz := proiz * a[i]; //произведение

   end;   writeln('сумма ',sum);  

 writeln('творение ',proiz);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт