Дан массив 10 элементов. Заполнение и вывод при помощи цикла. найти произведение отрицательных элементов

Question

Информатика

Джинджер

20 августа, 17:11

Дан массив 10 элементов. Заполнение и вывод при помощи цикла. найти произведение отрицательных элементов

+4

Ответы (1)

Знаете ответ?

Чото · Answer 1

Var a:array[1 ... 10] of Integer;

p, i:integer;

Begin

p:=1;

WriteLn ('Массив') ;

For i: = 1 to 10 do

begin

a[i]:=Random (20) - 10;

Write (a[i]:3) ;

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

end;

WriteLn;

WriteLn ('Произведение отопительных элементов = ', p)

end.