var a:array of integer;
i,n,k:integer;
begin
write('Введите количество элементов массива: ');
readln (n);
a:=new integer[n];
write ('Массив: ');
for i:=0 to n-1 do
begin
a[i]:=random(199)-99;
if a[i] < 0 then k:=k+1;
write (a[i]:5);
end;
writeln;
write ('Количество отрицательных элементов ',k)
end.
a->B2 =a*a*a->B3 =B3*B3*B3*B2->B4
a->B2 =a*a*a*a->B5 =B5*B5*B5*B5*B5->B6
a->B2 =a*a*a*a*a->B7 =B7*B7*B7*B7*B7->B8
a->B2 =a*a*a*a*a->B7 =B7*B7*B7*B5 ->B9
//Немного приведения типов на сон грядущий.
а)d(real)+1(integer)=>real
б)a(integer)*d(real)=>real
в)a(integer)-2(integer)=>integer
г)15 mod 5(всегда возвращает integer)=>integer
д)a(integer)+b(integer)+c(integer)/n(real)=>real(т.к. дробь)
е)b(integer)/c(integer)*100(integer)=>real(т.к. дробь)
ж)(a(integer)+b(integer))*2(integer)-d(real)=>real