Вычислить творение всех частей одномерного массива В, в котором 20 частей.

Вычислить творенье всех элементов одномерного массива В, в котором 20 частей.

Задать свой вопрос
2 ответа
Const n=20;
var B:array[1..n] of integer;
i,s:integer;
Begin 
Randomize; 
For i:=1 to n do
  Begin 
  b[i]:=Random(10);
   Write(b[i],' '); 
 end; 
 s:=1; 
 For i:=1 to n do   
Begin
     s:=s*b[i]; 
 end;
  writeln; 
 Writeln('Творение частей:  ',s);
end.
Program pas;
var b:array[1..20] of integer;
i, k: integer;
begin
k:=1;

for i:=1 to 20 do
readln(b[i]);

for i:=1 to 20 do
k:=k*b[i];
writeln(k);
end.


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


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

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

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

Войти на сайт