Заменить i элемент произведением первых i элементов массива

@Lewander · Регистрация: 11.10.2011

Author24 — интернет-сервис помощи студентам

3)Измените предыдущую программу так, чтобы в массиве В, элемент с номером i был равен:
3.2. произведению первых i элементов массива А;

Заранее спасибо.

@КонецСвета · 31.10.2011, 23:22

Задача 3

Pascal

uses crt;
var
   a: array [1..10] of integer;
   b: array [1..10] of integer;
   i, j, pr: integer;
begin
   for i:=1 to 10 do
   begin
   writeln('Введите ', i, ' элемент массива');
   readln(a[i]);
   end;
   for j:=1 to 10 do
   begin
   pr:=1;
   for i:=1 to j do
   pr:=pr*a[i];
   b[j]:=pr;
   end;
   writeln('Одномерный числовой массив А');
   for i:=1 to 10 do
   write (a[i]:7);
   writeln;
   writeln('Одномерный числовой массив B');
   for j:=1 to 10 do
   write (b[j]:7);
end.

@Lewander 0 / 0 / 0 Регистрация: 11.10.2011 Сообщений: 18
		1
	Заменить i элемент произведением первых i элементов массива 31.10.2011, 22:17. Показов 1403. Ответов 1 Метки нет (Все метки) 3)Измените предыдущую программу так, чтобы в массиве В, элемент с номером i был равен: 3.2. произведению первых i элементов массива А; Заранее спасибо. 0

	31.10.2011, 23:22

Заменить i элемент произведением первых i элементов массива

Решение