Сформировать массив с random от -30 до 30.размер 10 элементов .сколько в массиве отрицательных элементов?

Begin randomize; for i: =1 to n do a[i]: random (60)-30; k: =0; for i: =1 to n do if a[i]< 0 then k: =k+1; writeln('k=',k); end. язык программирования - pascal, k - количество отрицательных элементов

Var   xl,xr,h,x: real;   i: integer; begin   write('введите левую и правую границы изменения х, затем шаг: ');   read(xl,xr,h);   for i: =1 to trunc((xr-xl)/h)+1 do begin       x: =xl+(i-1)*h;       writeln(x: 0: 4,'  ',abs(sin(x))+cos(abs(       end end. пример введите левую и правую границы изменения х, затем шаг: 1.2 3 0.18 1.2000  1.2943968404439 1.3800  1.17149436167019 1.5600  1.01073783728823 1.7400  0.817321730886476 1.9200  0.597495822534427 2.1000  0.358363262049017 2.2800  0.107651047653376 2.4600  -0.146539653537401 2.6400  -0.395995275405633 2.8200  -0.632655254626053 3.0000  -0.848872488540578

Var   i,d,n,k: integer; begin   write('введите трехзначное натуральное число: ');   read(n);   k: =0;   for i: =1 to 3 do begin       d: =n mod 10;       if d mod 3=0 then begin           inc(k);           write(d,' ')           end;       n: =n div 10       end;   if k> 0 then write('- цифры, кратные трем')   else write('таких цифр нет') end. примеры введите трехзначное натуральное число: 569 9 6 - цифры, кратные трем введите трехзначное натуральное число: 184 таких цифр нет замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0. если это не так, то замените условие d mod 3 = 0 на (d mod 3 = 0) and (d> 0)