Найти сумму и произведение элементов массива, полученных случайным образом из отрезка [-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 :)

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

Помогите!!!Быстрее!!!!
Помогите!!!Быстрее!!!!
Помогите решить 6 и 7 задачу. Информатика 9 класс. СРОЧНО!!!
Помогите решить 6 и 7 задачу. Информатика 9 класс.
сор 7 сынып пж 4 тапсырма
сор 7 сынып пж 4 тапсырма
x:=5 y:=7 t:=x x:= y mod x y:=t
x5 y7 tx x y mod x yt