Дана таблица вещественных чисел a[1..n]. найти количество отрицательных элементов таблицы. напишите на c++.

№1.

код на языке pascalabc:

program z1; uses crt; varx,y: real; beginwriteln('введите x '); readln(x); if x> 0 then y: =sqrt(x)elsey: =sqr(x); writeln('x= ',x,'y= ',y); end.

№2.

program z2; uses crt; vara,b,a1,b1,r: real; beginwriteln('введите 1 число '); readln(a); writeln('введите 2 число '); readln(b); a1: =sin(a)/cos(a); b1: =sin(b)/cos(b); r: =a1+b1; writeln('1 число: ',a,'   2 число: ',b,'   3 переменная: ',a1); writeln(' 4 переменная: ',b1,'   сумма 2 последних переменных: ',r); end.

var a: array [byte,byte] of real; i,j,n,m: byte; s: real; d,p: word;

beginwrite('введите количество строк n = '); readln(n); write('введите количество строк m = '); readln(m); for i: =1 to n do for j: =1 to m do readln(a[i,j]);

s: =0; d: =0; p: =0; for i: =1 to m do beginfor j: =1 to n do s: =s+a[j,i]; for j: =1 to n doif a[j,i]< (s/n) then inc(d); writeln('количество элементов в столбце ',i,' прямоугольной вещественной матрицы, меньших среднего арифметического d = ',d,' среднее арифметическое = ',(s/n): 0: 4); p: =p+d; d: =0; s: =0; end; writeln('общее количество элементов меньших элементов в столбцах = ',p); writeln('матрица'); for i: =1 to n do beginfor j: =1 to m do write(a[i,j],' '); writeln; end; end.