Подарков, ребят) помогите, пожалуйста, решить эту задачку. Дан массив из 10

Даров, ребят) помогите, пожалуйста, решить эту задачку.
Дан массив из 10 случайных чисел из интервала [-10;50]. Отыскать творенье всех частей массива.

Задать свой вопрос
Ирина
на каком языке?
Арсений Володенко
На плюсах либо паскале?
Антонина Клиносова
паскаль)
1 ответ
Program n1;
const n=10;
var a: array [1..n] of integer;
p,i: integer;
begin
randomize;
p:=1;
for i:=1 to n do a[i]:=random(61)-10;
for i:=1 to n do p:=p*a[i];
writeln('произведение: ',p);
end.
Серж Цыс
ооу, благодарю :з
Диана Жолобовская
А ты в вебе разбираешься?
Чагмавели Юлия
нэт, гы
Angela Levento
Да я парня спрашивал, который ответил
Изосимова Евгения
соряян
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт