Диаграмма/*выбираете тип*/ставите координаты)))готово
Const
N = 4;
Var
A:array[1..N,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('1)');
k:=0;
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ');
if A[i,j] < 0 then k:=k+1;
End;
WriteLn
End;
WriteLn('k = ',k);
WriteLn('2)');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
if j > i then A[i,j]:=100;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('3)');
For i:= 1 to N div 2 do
Begin
For j:= 1 to N do
Begin
k:=A[i+N div 2,j];
A[i+N div 2,j]:=A[i,j];
A[i,j]:=k;
End
End;
For i:= 1 to N do
Begin
For j:= 1 to N do
Write(A[i,j]:3,' ');
WriteLn
End;
End.
1)
10 2 -9 4
-10 5 -5 -10
4 9 4 10
3 -9 10 -6
k = 6
2)
10 100 100 100
-10 5 100 100
4 9 4 100
3 -9 10 -6
3)
4 9 4 100
3 -9 10 -6
10 100 100 100
-10 5 100 100
Лицензионные программы это официальные программы от производителя в отличии от repack'a. Отличия бывают иногда, но не всегда, обрезаются онлайн функции, поддержка с официального сайта. Рекомендуется всегда покупать лицензию, но никто так не делает.
1. Неожиданная резкая боль, страх, нервные потрясения.
Они могут вызвать мгновенное снижение артериального давления, вследствие чего наступает снижение кровотока, нарушение кровоснабжения головного мозга, что приводит к обмороку.
2.Общая слабость организма, иногда усугубляемая нервным истощением.
Общая слабость организма, возникающая вследствие самых разных причин, начиная от голода, плохого питания и кончая постоянным волнением, может также привести к снижению артериального давления и обмороку.
3.Пребывание в помещении с недостаточным количеством кислорода.
Уровень кислорода может быть понижен из-за нахождения в помещении большого количества людей, плохой вентиляции и загрязнения воздуха табачным дымом. Вследствие этого мозг получает меньше кислорода, чем нужно, и у пострадавшего наступает обморок.
4.Длительное пребывание в положении стоя без движения. Это приводит к застою крови в области ног, уменьшению ее поступления в мозг и, как следствие, - к обмороку.
Var
i,k:integer;
a:array[1..10]of integer;
begin
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]*a[i+1]<0 then k:=k+1
end;
writeln('Число перемен знака: ',k)
<span>end.</span>
