Question

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

Answer 1

Ответ:

program p_1;

const n=15;

var i:integer;

p:real;

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

begin

randomize;

for i:=1 to n do

begin

a[i]:=random(130)-50;

writeln('a[',i,'] = ',a[i])

end;

p:=1;

for i:=1 to n do p:=p*a[i];

writeln;

writeln('p = ',p)

end.