Напишите программу подсчета произведения всех отрицательных элементов заданного целочисленного массива размером 30 элементов, в предположении, что в массиве есть хотя бы 1 отрицательный элемент (паскаль)

Var mas30: array [1..30] of integer; var i, proz: integer; begin proz: =1; for i: =1 to 30 do    begin  mas30[i]: =-5+random (11); //заполнение массива  write (mas30[i], '   '); //вывод значений массива  end;   writeln; for i: =1 to 30 do if mas30[i]< 0 then proz: =proz*mas30[i]; //подсчет произведения отриц элементов writeln (proz); end.

#include < iostream> using namespace std; int main() {           int mat[3][3];         int k;         int size=0;           int * arr=0;           for(int i=0; i< 3; i++){                   for(int j=0; j< 3; j++){                         cin> > mat[i][j];                             if (mat[i][j]> 0){                               arr=(int*)realloc(arr,sizeof(int)*(++size));                               arr[size-1]=mat[i][j];                                               }                                             }                                       }                     for(int i=0; i< size; i++){                   cout< < arr[i];                     }                 delete arr;                 cin.get();                 cin.get();                 return 0; }

Поиграйтесь, возможно есть ошибки

Объяснение:

a = ["", "один","два","три","четыре","пять","шесть","семь","восемь","девять"]

b = ["", "десять","двадцать","тридцать","сорок","пятьдесят","шестьдесят","семьдесят","восемьдесят","девяносто"]

c = ["", "сто","двести","триста","четыреста","пятьсот","шестьсот","семьсот","восемьсот","девятьсот"]

d = ["", "одинадцать","двенадцать","тринадцать","четырнадцать","пятнадцать","шестнадцать","семьнадцать","восемнадцать","девятнадцать"]

x = int(input("Введите ваше число (0-1000): "))  

if len(str(x)) >= 4:

   if x != 1000:

       print("Не более 1000!")

   elif x == 1000:

       print("Тысяча")

   else:

       print("Очень странная ошибка!")

   

elif len(str(x)) >= 1:

   if len(str(x)) == 1:

       print(a[x])

   elif len(str(x)) == 2:

       aa = str(x)[0]

       bb = str(x)[1]

       if aa == str(1):

           print(d[int(bb)])

       else:  

           print(b[int(aa)] + " " + a[int(bb)])

       

   elif len(str(x)) == 3:

       aa = str(x)[0]

       bb = str(x)[1]

       cc = str(x)[2]

       if bb == str(1):

           print(c[int(aa)] + " " + d[int(cc)])

       else:

           print(c[int(aa)] + " " + b[int(bb)] + " " + a[int(cc)])

       

elif x == None:

   print("Не оставляй пустым!")