Дан массив из 10 целых чисел определите произведение положительных элементов массива

Question

Информатика

Тарас

20 апреля, 20:32

Дан массив из 10 целых чисел определите произведение положительных элементов массива

+4

Ответы (1)

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

Санюта · Answer 1

Задача выполнена на языке Pascal;

Var

i: integer;

w: real;

mas: array[1 ... 10] of integer;

Begin

w: = 1;

For i:=1 to 10 do

Begin

if mas[i] > 0 then w: = w * mas[i];

End;

Writeln (mas) ;

End;