Const n = 50; k= 50;var A:Array[1..n,1..k] of integer;i,j,mn,mk,z,sum,v:integer;beginwrite('Введите n'); readln(mn);write('Введите k'); readln(mk);for i:= 1 to mn dobeginfor j:= 1 to mk dobeginA[i,j]:= random(100)-50;write(A[i,j]:5)end;writeln;end;writeln;writeln('Суммы элементов массива в стобце');for i:= 1 to mn dobeginfor j:= 1 to mk dobeginfor z:= 1 to mn dobeginif z <> i thenbeginsum:= sum + A[z,j];end;end;if A[i,j] > sum then v:=v +1;write(sum:5);sum:=0;end;writeln;end;write('Число особых элементов массива = ',v);<span>end.</span>
1. 262144 бит = 262144/8 байт = 32768 байт = 32768/1024 Кбайт = 32 Кбайт<span>
2. 16384 бит = 16384/8 байт = 2048 байт = 2048/1024 </span>Кбайт = 2 Кбайт<span>
3. 131072 бит = 131072/8 байт = 16384 байт = 16384/1024 </span>Кбайт = 16 Кбайт<span>
4. 1/4 Кбайт = 1024/4 байт = 256 байт = 8*256 бит = 2048 бит
5. 227 бит = 227/8 байт = 227/(8*1024) Кбайт = 227/(8*1024*1024) Мбайт </span>≈ 0,000027 Мбайт<span>
6. 10 Кбайт = 10*1024 байт = 10240 байт = 10240*8 бит = 81920 бит = 81920/1000 Кбит = 81,92 Кбит
7. 2048 бит = 2048/1000 Кбит = 2,048 Кбит
8. 2 Кбит = 2*1000 бит = 2000/8 байт = 250 байт</span>
Program shtrihi;
uses crt;
var
x,y: real;
begin
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
if (y>=0) and (y>=-x+2) and (x*x+y*y<=9) and (y<=exp((1/2)*ln(abs(x)))) then
begin
writeln('Точка (',x,',',y,') попадает в заштрихованную область ');
end
else
writeln('Точка (',x,',',y,') HE попадает в заштрихованную область ');
end.
Присваеваеш максимум к каждому числу при определенных условиях
это !!!своеобразный метод!!!