Var ma:array of array of integer;
ar:array of integer;
i,k,j,n,m:integer;
begin;
randomize;
readln(n);
readln(m);
k:=0;
setlength(ar,m+1);
setlength(ma,n+1);
for i:=1 to n do
setlength(ma[i],m+1);
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to m do
begin;
ma[i,j]:=random(21)-10;
write(ma[i,j]:4);
end;
end;
for i:=1 to m do
begin;
for j:=1 to n do
if ma[j,i]>0 then inc(k);
ar[i]:=k;
k:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to m do
write(ar[i]:4);
<span>end.</span>
Активная ячейка (ActiveCell) - это выделенная ячейка, если выделен диапазон, то обычно это первая ячейка диапазона.
Для редактирования ячейки вручную, ее для начала придется выбрать т.е. сделать активной
Информатику плохо знаю, поэтому могу дать ответ только на 1 и 2 задание
1
а)11 мб б) 7168 мб с) 5 мб
2
а) 524228 б б)10240 кб
Она работает в режиме онлайн:D
Из целых чисел такая пара только одна - 2 и 2.
А если программу писать, то так
var a, b: integer
BEGIN
for a=1 to 100 do
begin
for b=1 to 100 do
begin
if a+b=a*b then write (a, b);
end;
end;
END.
Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)
Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2