Написать программу по "напишите программу получение из заданного целочисленного массива размером 30 элементов кол-во положительных, отрицательных и нулевых значений "

Program adelia17; uses crt; const n=30; var   matr: array [1..n] of integer;   i,pos,neg,zero: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln(); writeln();   writeln('программа находит количество положительных, отрицательных и нулевых элементов массива');   pos: =0; neg: =0; zero: =0;   randomize;   writeln('массив: ');   for i: =1 to n do   begin           matr[i]: =random(100)-50;           write(matr[i]: 4,' ');           if matr[i]> 0 then pos: =pos+1;           if matr[i]< 0 then neg: =neg+1;           if matr[i]=0 then zero: =zero+1;       end;       writeln();   writeln('количество положительных элементов равно ',pos);   writeln('количество отрицательных элементов равно ',neg);   writeln('количество      нулевых      элементов равно ',zero); end.

Const n = 30; var a: array [1..n] of integer; b,c,d,i: integer; begin        writeln('vvedite massiv');           for i: =1 to n do        readln(a[i]);         b: =0; c: =0; d: =0;         for i: =1 to n do begin        if a[i] = 0 then inc(b);         if a[i] > 0 then inc(c);         if a[i] < 0 then inc(d);         end;         writeln('kol-vo ravnih 0 - ',b);         writeln('kol-vo bolshe 0 - ',c);         writeln('kol-vo menshe 0 - ',d);         readln; end.

16384

Объяснение:

256 цветов - 1 байт

128 * 128 * 1 = 16384