<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
<span>end. </span>
Для установки операционной системы :
1) Заходим в BIOS и устанавливаем загрузку с CD-ROM
2) Втыкаем в CD-ROM установочный диск
3) Выходим из биоса сохраняя настройки
4. Автоматический ребут ( перезагрузка компьютера )
5. Начинается процесс загрузки с CD ( если только имеет верный формат )
6. Далее всё на русском
После установки :
Программа установки проверяет пк
И вводишь данные
всё.
Сделай лучшим решением заранее благодарен
Var a,b:integer;
begin
readln(a,b);
writeln(a,b);
end.
Ответ:
4
Объяснение:
число меньше 60 и не четное
35 - нечетное
72 - больше 60
81 - нечетное
28 четное и меньше 60