Uses crt;
var a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
i,j,m,n:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
Writeln;
for i:=1 to m do
Write(i:4);
Writeln;
Writeln('-'*4*m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)-10;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln;
b[j]:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then
b[j]:=b[j]+1;
for i:=1 to m do
if b[i]>0 then Writeln('В столбце ',i,' положительных чисел ',b[i])
else Writeln('В столбце ',i,' нет положительных чисел ');
Readln;
end.
1-й пункт: Alt+Shift: Ctrl+Shift: Shift+Shift
2-1 пункт: Shift
3-й пункт: Caps lock нажать/отжать
4-й пункт: Shift + цифра, вариации в обоих языках, в Английском слева, а в русском справа спец-символы.
5-й пункт: Del (Delete)
6-й пункт: Back Space
7-й пункт: Кнопка NUM LOCK вкл-только цифры, выкл-стрелки вверх, вниз, влево, вправо.
Int s = 0;
for(i=5; i<=30; i++){
s+=i;
}
print(s)
1) 70
2) 427
3)50
4) нет вопроса
5) 3400
6) 2200
7)277
8) 250
9) 533
10) 140