Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
32=2^5, значит 1 символ весит 5 бит.
20*10*3=600 символов
600/5=125 бит
так как в байте 8 бит, 125/8=15.625, то есть 16 байт (округляем в бОльшую сторону)
1. САМ РЕШАЙ.
2 Я ХЗ ЧО ЭТо
<span>¬</span>(7x-3<75)\/(x^2-x>65)=0;
x=8