Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end.
var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200) then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write(' min = ' ,min:4);end;end.
1-4=-3; (2);
(-3)^2=9; (1);
9-4=5; (2);
5^2=25; (1);
25-4=21; (2);
Ответ: 21212
2)Если на столе скопилось слишком много документов и инструментов и они начали мешать работе пользователя, те окна, которые временно не нужны, можно уменьшить в размерах или же полностью свернуть. За свернутым окном сохраняются все ресурсы. Мало того, программа, окно которой свернуто, продолжает выполняться. Свернутое окно можно вновь развернуть и привести его в то состояние, которое окно имело перед свертыванием. Свернутое программное окно представлено кнопкой на панели задач, а свернутое окно документа обычно размещается в углу рабочей зоны программного окна. Свертывание окна часто называют минимизацией окна. Способы свертывания окна:
□ рекомендуемый — щелкнуть по кнопке свертывания в заголовке окна;
□ стандартный — выбрать команду Свернуть из системного меню окна;
□ дополнительный способ: программное окно можно свернуть, щелкнув по кнопке окна на панели задач.
Кнопка свернутого окна рельефно выделена над панелью задач, а кнопка развернутого — углублена в панель. При наличии на Рабочем столе нескольких окон последний прием, в зависимости от ситуации, может привести к переключению на другое окно.5)Окно может иметь полосы прокрутки. Это говорит о том, что размер окна слишком мал, чтобы полностью отразить всѐ содержимое. Каждая полоса прокрутки имеет ползунок. Перетаскивая ползунки по полосе прокрутки, можно просмотреть в окне всю рабочую область. Небольшое смещение рабочей области выполняют щелчками на кнопках прокрутки. В одном из открытых окон выполните следующие действия: нажимайте клавишу Enter, пока не активизируется вертикальная полоса прокрутки; нажимайте клавишу пробел, пока не активизируется горизонтальная полоса прокрутки; перетащите вверх ползунок вертикальной полосы прокрутки; перетащите влево ползунок горизонтальной полосы прокрутки; вернитесь к курсору, щелкая на кнопках прокрутки.
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>