// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018 // Внимание! Если программа не работает, обновите версию!
№1
begin var n:=15; var a:=ArrRandom(n,2,5); a.Println; var k2:=a.Where(t->t=2).Count; Writeln('Не сдали экзамен ',k2,' чел, что составляет ',k2/n*100:0:1,'%') end.
Пример 4 3 3 4 5 4 3 4 3 5 4 5 2 5 2 Не сдали экзамен 2 чел, что составляет 13.3%
№2
begin ArrRandom(7,15,40).Println.OrderBy(t->t).Println end.
Пример 34 21 24 29 28 22 25 21 22 24 25 28 29 34
P.S. А объяснять тут нечего - все видно из текста программы.
uses graphabc;
var x,y,i,n,k,x0,y0: integer;
begin
setwindowsize(640, 480);
setpenwidth(3);
line(10, 240, 630, 240);
line(320, 10, 320, 470);
line(620, 235, 630, 240);
line(620, 245, 630, 240);
line(315, 20, 320, 10);
line(325, 20, 320, 10);
n: =10;
for i: =1 to 61 do begin
line(o+i*n, 243, o+i*n, 237);
end;
for i: =1 to 46 da begin
line(317,20 +i*n, 323,20+i*n);
end;
x0: =320;
y0: =240;
k: =50;
for x: =-320 to 320 do
begin
y: =truns(k*sin(x/k);
putpixel(x0+x, y0-y, clred);
end;
textout (50,40; grafic y=sinx');
end.