M,n=[int(i) for i in input().split()]
matrix=[]
for i in range(m): matrix.append([int(i) for i in input().split()])
for y in matrix:print(max(list(filter(lambda x: x<0,y))))
как получилось:
777 делим на 16 столбиком, каждый раз смотря на остаток. последнее частное без остатка будет равняться 1 цифре искомого числа, и далее в обратном порядке пишем остатки от предыдущих частных.
777/16=48 (остаток 9)
48/16=3 (остаток 0)
3 - 1 цифра, далее остатки в обратном порядке 0 и 9, итого
Var
A:array[1..10] of integer;
i,n:integer;
Begin
n:=0;
For i:= 1 to 10 do
Begin
A[i]:=random(5)+1;
Write(A[i],' ');
if A[i] = 5 then n:=i;
End;
WriteLn;
if n=0 then WriteLn('Пятёрок в массиве нет')
else WriteLn(n)
End.
Var A:array[1..25] of integer;
i,n:integer;
Begin
n:=0;
For i:= 1 to 25 do
Begin
A[i]:=random(5)+1;
Write(A[i],' ');
if A[i]=1 then n:=n+1
End;
WriteLn;
WriteLn(n);
End.
Var A:array[1..15] of integer;
i:integer;
S:real;
Begin
For i:= 1 to 15 do
Begin
A[i]:=random(5)+1;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/15)
End.
Беспроводная локальная сеть (зачастую используется гибридный роутер) (WLAN)
Дротовая локальная сеть через switch (коммутатор) (LAN)
Прямое подключение к сети через VPN
Вариант в Excel 2003.
Программа в редакторе VBA.
см. прикрепленный файл.
