Составить программу , которая формирует массив , содержащий 12 случайных целых чисел , принадлежащий промежутку [-7; 10], и подсчитывает кол-во всех отрицательный чисел

Паскаль: var i,t: integer;     a: array[1..12] of integer; begin  randomize;   for i : = 1 to 12 do begin     a[i] : = round( random(17)-7 );     write(a[i]: 3);   end;   t : = 0;   for i : = 1 to 12 do     if a[i] < 0 then       inc(t);   writeln;   writeln(t);   readln; end.

#include < iostream> #include < stdlib.h>       #include < time.h>         int main() {     srand(time(null));     int a[12];     int s = 0;     for (int i = 0; i < 12; ++i){       a[i] = rand() % 18 - 7;       if (a[i] < 0) s++;     }     std: : cout < < s;       return 0; }

Program n1; var x,y,n,z,h,c: real; function arccos(x : real) : real; begin arccos : = 2 * arctan(sqrt((1 - x) / (1 + ; end; procedure ygls( a,b,c,t: real); var al,be,ga: real; begin al : = arccos((sqr(b) + sqr(c) - sqr(a))/(2 * b * c)) * 180 / pi; writeln('угол a= ',trunc(al)); writeln('угол b= ',trunc(180-al-t)); end; begin write('введите сторону а: '); readln(x); write('введите сторону b: '); readln(y); write('введите угол с: '); readln(c); n: =c; c: =cos(c*180/pi); z: =sqrt(x*x+y*y-2*x*y*c); h: =0.5*sqrt(2*(x*x+y*y)-c*c); ygls(x,y,z,n); writeln('сторона c: ',trunc(z)); writeln('высота h: ',trunc(h)); writeln('периметр p: ',trunc(x+y+z)); writeln('площадь s: ',trunc(z*h)); end.

#include < iostream> using namespace std; int main() { int n,max; bool a=false; cout< < "enter kol-vo numbers: "< < endl; cin> > n; if(n< =1000) { int arr[n]; cout< < "enter 1 chislo"< < endl; cin> > arr[0]; max=arr[0]; if(arr[0] % 10==3 & & arr[0]< 30000) { a=true; for (int i=1; i< n; i++) { cout< < "enter "< < (i+1)< < " chislo"< < endl, cin> > arr[i]; if(arr[i]> 30000) { break; } } for (int i = 0; i < n; ++i) { if (arr[i] > max & & arr[i] % 10==3) { max = arr[i]; } } } } if(a){ cout< < " max chislo okanch na 3: "< < max< < endl; } return 0; }