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

Question

Информатика

Трифон

9 августа, 08:00

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

+5

Ответы (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;