Умоляю найти произведение всех элементов массива вещественных чисел, меньших заданного числа. размерность массива -10. заполнение массива осуществить случайными числами от 50 до 100

const n=10;

var a: array[1..n] of real;

i: integer;

x: real;

begin

randomize;

for i : = 1 to n do

a[i] : = random (100)-50;

readln(x);

for i: =1 to n do

if a[i]> x then p: =p*i;

writeln(p);

end.

Условие b > a выполняется, следовательно выполняем команду then.
S:= 2
S:= 2+4
S:= 6

1 пролистывания.
2 ссылки

#include<iostream>#include <stdlib.h>using namespace std;int main(){int i, c=0;cin >> i ;int a[i];for( i--; i >=0; i--){    a[i] = rand() % 5 - 2;    if (a[i] > 0 ){        c+=a[i];    }    cout << c;}}