Сделайте и 15 решите

Буквы латинского алфавита, арабские цифры и специальные знаки))

Напиши на українській

Program pr;
var a:array [1..n] of integer;
n, i, c: integer;
begin
c := 1
n := random(50);
for i := 1 to n do
begin
readln(a[i]);
c := c * a[i];
end;
writeln(c);
end.

#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;}}