Первая:
var a:array[1..50] of integer;
i,bol,men,ravn:integer;
begin
for i:=1 to 50 do begin
readln(a[i]);
if a[i]=0 then inc(ravn);
if a[i]<0 then inc(men);
if a[i]>0 then inc(bol);
end;
writeln(ravn,' - чисел равных нулю');
writeln(men,' - чисел меньше нуля');
writeln(bol,' - чисел больше нуля');
<span>end.</span>
1) 5 11 13
2) 13
3) 5 8
4) 5 8
5) 8 5
6) 11 5
7) 8 8
В 6 действий, там где пусто то ничего не делаем, там где цифры то это значит мы налили туда квас
задача1
запишем условие: страницы=1024, строки=64, символы=64, i=8 бит
решение: вычислим общее кол-во символов в тексте
К=1024*64*64=4194304
вычислим информационный объем текста в битах
I=K*i=4194304*8=33554432 бит
выразим этот объем в Мб
I=33554432/8/1024/1024=4 Мб это и есть ответ
задача2
запишем условие: страниц=256, строки=64, символы=64, i=16бит
решение: вычислим общее количество символов в тексте
К=256*64*64=1048576
вычислим информационный объем текста
I=K*i=1048576*16 бит=16777216 бит
выразим этот объем в Мб
I=16777216/8/1024/1024=2 Мб это и есть ответ