Предположим, что зашла она на первом этаже, тогда судя по схеме
1 -> 2 -> 3 -> 2 -> 3 -> 4 -> 3 -> 4 -> 5 -> 4 -> 5 -> 6 -> 7
1) На каком этаже Катя вошла в лифт?
не известно, но как минимум на 6 этажей ниже максимального
2) На каком этаже Катя побывала три раза?
на 3 и 4, если предполагать, что начала с первого
3) Сколько раз Катя побывала на 3 этаже?
3 раза, если предполагать, что начала с первого
4) На каком этаже Катя вышла?
на 7, если предполагать, что начала с первого
5) Сколько у Кати этажей в доме?
минимум 7
Var
a:array[1..100,1..100]of integer;
m,n,i,j,s,max:integer;
begin
readln(m,n);
for i:=1 to m do
begin s:=0;
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
end;
if s>max then
max:=s;
writeln;
end;
writeln('S: ',max);
end.
A) 2,4,6
B) 2 - хостином выделяется именно место на компьютерах, именнующихся серверами.
Program a10;
var a,b:Array [1..100,1..100] of integer;
k,i,n,j,s:integer;
Begin
read(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
end;
i:=0;j:=0;s:=0;k:=0;
while i<=n do
begin
i:=i+1;j:=j+1;
if(a[i,j]>0)then k:=k+1;
s:=s+a[i,j];
end;
writeln(k,' ',s);
<span>end.
2)
Program a10;
var a,b:Array [1..100,1..100] of real;
k,i,n,m,j:integer;
s:real;
Begin
read(n,m);
For i:=1 to n do
begin
For j:=1 to m do
begin
read(a[i,j]);
end;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
for i:=1 to n do
begin
if(a[i,j]>(s-a[i,j]))then k:=k+1;
end;
end;
writeln(k);
<span>end.</span></span>
Там есть раздел"Вставка или Вставить" И потом "Рисунок или Картинку"