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

Ответ

Автор - gfhjkmgfhjkm20

Ответ:

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.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.