Question

Створіть програму з використанням одновимірного масиву для 10 цілих чисел зі 100. 1) знайдіть сумму масиву , виведіть її на екран 2) знайдіть добуток масиву, виведіть її на екран

Answer 1

var

a:array:integer;

sum,ym:longint;

Begin

randomize; // позволяет каждый раз формировать рандомные числа

for i:=1 to 10 do

a[i]:=random(101); // создание рандомных чисел от 0 до 100

for i:=1 to 10 do

sum:=sum+a[i]; //считаем сумму элементов  массива

ym:=1;

for i:=1 to 10 do

ym:=ym*a[i];  // считаем произведение элементов массива

writeln(sum);  // выводим сумму элементов массива

writeln(ym);  // выводим произведение элементов массива

END.

программа написана на языке Pascal