Question

Информатика!!

Написати шматок програми для знаходження добутку додатніх елементів одновимірного масиву.

На паскале
Срочно!!!!

Answer 1

program ProductOfPositiveElements;

var

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

 i: integer;

 product: integer;

begin

 product := 1; // initialize product to 1

 // read in array elements from user input

 for i := 1 to 10 do

 begin

   writeln('Enter element ', i, ':');

   readln(arr[i]);

 end;

 // calculate product of positive elements

 for i := 1 to 10 do

 begin

   if arr[i] > 0 then

   begin

     product := product * arr[i];

   end;

 end;

 // print result

 writeln('Product of positive elements:', product);

 readln;

end.