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

Question

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

Comments

Ты в каком классе?

---

в 9

---

OMG я в 8. Эта очень простая задача =)

---

ахаха, я чистый гуманитарий) в будущем инфа мне ни к чему)

---

Ну хорошо ;)

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;