Сплануй і створи презентацію про професії два варіанти наборів слайдів для вибіркового показу: одна професія,інша професія.презентація має містити 7-8 слайдів
Const n=10; var a:array[1..n+1] of integer; k,i,j:integer; begin Randomize; writeln('Исходный массив'); for i:=1 to n do begin a[i]:=random(51)-10; write(a[i],' '); end; writeln; write('k = '); readln(k); j:=1; while (j<n)and(a[j]>=0) do j:=j+1; if a[j]>=0 then writeln('Отрицательных элементов нет') else begin for i:=n downto j+1 do a[i+1]:=a[i]; a[j+1]:=k; writeln('Измененный массив:'); for i:=1 to n+1 do write(a[i],' '); writeln; end; end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandomInteger(30,-50,50).Select(x->1.2*x).ToArray;
a.Println;
var m:=a.Average;
var b:=a.Where(x->x<m).ToArray; b.Println
end.
Пример
27.6 -40.8 50.4 -14.4 -46.8 9.6 7.2 -36 -32.4 -60 -30 38.4 -2.4 -55.2 -43.2 -39.6 1.2 -52.8 -38.4 34.8 -45.6 -12 15.6 -55.2 4.8 13.2 -1.2 -40.8 -33.6 -19.2
-40.8 -46.8 -36 -32.4 -60 -30 -55.2 -43.2 -39.6 -52.8 -38.4 -45.6 -55.2 -40.8 -33.6 -19.2