V=s*i,
V- объем памяти , s- кол-во символов, i- бит 1 символ
0,625*1024(это Кбайт)*1024(Байт)*8(Бит)=<span><span>5242880 бит
</span></span><span><span>5242880/163840=32 бита</span></span>
Var a,i,j,b,p,p1,max:longint;
m:array[0..501,1..500] of longint;
begin
read(a,b);
for i:=1 to a do
for j:=1 to b do
read(m[i,j]);
p:=1;
p1:=1;
max:=m[1,1];
for i:=1 to a do
for j:=1 to b do
if m[i,j]>max then
begin
p:=i;
p1:=j;
max:=m[i,j];
end;
writeln(p,' ',p1);
<span>end.</span>
Зло проиграет всегда ведь наш девиз добрата!!
CLSINPUT NDIM A(N), B(N)FOR i = 1 TO N A(i) = INT(RND * 100)NEXT imin = A(1)FOR i = 2 TO N IF A(i) < min THEN min = A(i)NEXT iFOR i = 1 TO N A(i) = min * A(i)NEXT iFOR i = 1 TO N B(i) = INT(RND * 100)NEXT imin = B(1)FOR i = 2 TO N IF B(i) < min THEN min = B(i)NEXT iFOR i = 1 TO N B(i) = min * B(i)NEXT iFOR i = 1 TO N PRINT A(i);NEXT iPRINTFOR i = 1 TO N PRINT B(i);NEXT i