Question

НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ
Сформировать и вывести на экран массив из 15 элементов, элементы которого заданы датчиком случайных чисел на интервале [-50, 79] . Найти произведение элементов этого массива.
PS: программу пишем по аналогии с примером на стр. 68

Answer 1

Ответ:

program n_1; //заголовок программы

const N=15; // блок описания используемых данных

var

i,p:integer;

a:array[1..n] of integer;

begin //программный блок

for i:=1 to n do

a[i]:=random(130)-50; //заполняем массив

for i:=1 to n do

p:=p*a[i]; //вычисляем произведение

writeln; //переходим на новую строчку

write(p); //выводим произведение

end. //завершаем программу