Дано : равномерный массив а[n] найти количество отрицательных элементов массива

Const   n=16; var   x: array[1..n] of integer;   i,k: integer; begin   randomize;   writeln('элементы массива');   k: =0;   for i: =1 to n do   begin       x[i]: =random(51)-25;       write(x[i]: 4);       if x[i]< 0 then inc(k)   end;   writeln;   writeln('количество отрицательных элементов равно ',k); end. тестовое решение: элементы массива     3 -14  -7  15  10  12 -11 -13 -21 -13  13 -17    9  -7 -24  20 количество отрицательных элементов равно 9

J: =0; for i: =1 to n do   if a[i]< o then j: =j+1; writeln (j);   end.

а) 400 * 2,5 = 1000 кб

б) 64 : 2,5 = 25,6 = 25 страниц

в) нужен   диск - cd-r или cd-rw

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

 

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }