Создать массив а из 10 целых чисел принадлежащих промежутку [0,20], вывести полученный массив и посчитать произведение элементов меньших 10

Question

Информатика

Панюля

11 мая, 11:52

Создать массив а из 10 целых чисел принадлежащих промежутку [0,20], вывести полученный массив и посчитать произведение элементов меньших 10

+4

Ответы (1)

Знаете ответ на вопрос?

Рипсимия · Answer 1

Program n1;

const n=10;

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

i: integer;

p: real;

begin

randomize;

p:=1;

for i:=1 to n do

begin

a[i]:=random (21) ;

write (a[i],' ') ;

if a[i]<10 then p:=p*a[i];

end;

writeln;

write (p) ;

end.