Найти сумму и произведение элементов массива, полученных случайным образом из отрезка [-10;20] Паскаль. Написать программу Помогите решить, пожалуйста. Срочно!

Вам нужно узнать решение и ответ на вопрос Найти сумму и произведение элементов массива, полученных случайным образом из отрезка [-10;20] Паскаль. Написать программу Помогите решить, пожалуйста. Срочно! и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

Найти сумму и произведение элементов массива, полученных случайным образом из отрезка [-10;20] Паскаль. Написать программу
Помогите решить, пожалуйста. Срочно!

Тоесть random() от -10 до 20?

да

Сейчас

Сколько элементов в массиве? Или это вводится?

Быстро

Ответ принят

Var n,i,k,k1:integer;
a:array[1..1000]of integer;
begin
k:=0;
k1:=1;
read(n); //СДЕСЬ ВВОДИТСЯ КОЛИЧЕСТВО ЭЛЕМЕНТОВ В МАССИВЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
for i:=1 to n do
Begin
randomize;
a[i]:=random(31)-10;
end;
for i:=1 to n do
begin
k:=k+a[i];
k1:=k1*a[i];
end;
for i:=1 to n do
write(a[i],' ');
writeln(k);//СУММА
writeln(k1); //ПРОИЗВЕДЕНИЕ
end.

ЧТООООООООООООООО!!!!!!!!!!!!!!!!!!!!!!!!

Я ЖЕ НЕ ТАК ВВОДИЛ!!!!!!!!!

АААААААААА

НЕНАВИЖУ ЭТОТ САЙТ!!!!!!!!!!!!!!!

У МЕНЯ СТРУКТУРА БЫЛА ЛУЧШЕ!!!!!!!

А ЭТОТ САЙТ ВСЁ ИСПОРТИЛ!!!!!!!!!!

Переходи на FF :)

Подобные ответы

Помогите дз по ивт срочно
Помогите дз по ивт срочно
Найдите произведение всех целых от минус 3 до 12
Найдите произведение всех целых от минус 3 до 12
существуют различные исполнители для выходы из лабиринта.
существуют различные исполнители для выходы из лабиринта.
Помогите с лабораторными работами #4, 5, 6. Пожалуйста
Помогите с лабораторными работами 4, 5, 6. Пожалуйста
Проверьте пожалуйста решение. Найти все элементы массива вещественных чисел С(N),больших заданного числа.
Проверьте пожалуйста решение. Найти все элементы массива вещественных чисел СN,больших заданного