Решить через паскаль найти среднее арифметическое элементов последовательности превосходящих некоторое число с, массив задан датчиком случайных чисел на интервале (-44, 35), размер произвольный , значение с вводится с экрана

//Pascal ABC.NET 3.1 сборка 1219

Const
  n=10;

Var
 c,i,k:integer;
 ar:array[1..n] of integer;
 r:real;
begin
 readln(c);
 writeln('Array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-43,34);
   if ar[i]>c then
     begin
     inc(k);
     r:=r+ar[i];
    end;
   write(ar[i]:4);
 end;
 writeln;
 r:=r/k;
 write(r);
end.

Пример ввода:
0
Пример вывода:
Array:
  20 -23  23  18 -40 -16 -39  31 -12  21
22.6

Ворд - простой текстовый редактор, где работается просто и легко в том случае, если знаешь все нюансы работы ворд.

Итак, чтобы сделать оглавление в ворде автоматически, нужно сначала разбить документ на разделы с заголовками, а потом перейти во вкладку "Главная" - "Стили". К названиям разделов, которые требуется внести в содержание, примените соответствующие стили. Например, для названий разделов можно применить «Заголовок 1», а для подразделов «Заголовок 2».

Затем перенесите курсор в место, куда нужно разместить оглавление.

Перейдите во вкладку «Ссылки» и выберите раздел «Ссылки». Из появившегося списка выберите «Автособираемое оглавление» или «Ручное оглавление».

Кроме того, можно составить оглавление вручную и даже его обновить. Как это сделать, читайте статью, где всё подробно расписано:

Объяснение:

1 uses graphABC,crt;

2 var i,x,y,x2,y2,x3,y3: integer;

3 begin

4 setwindowsize(500,500);

5 lockdrawing;

6 hidecursor;

7 repeat

8 clearwindow;

9 setpenwidth(1);

10 setbrushcolor(clblack);

11 circle(250,200,20);

12 setbrushcolor(clbrown);

13 rectangle(100,200,400,400);

14 setbrushcolor(clwhite);

15 roundrect(110,210,350,390,40,40);

16 for i:=1 to 10000 do

17  putpixel(random(235)+112,random(171)+215,clblack);

18 setbrushcolor(clblack);

19 for i:=1 to 5 do

20 circle(375,210+(i*25),10);

21 circle(375,370,15);

22 setbrushcolor(clwhite);

23 rectangle(372,360,378,380);

24 setpenwidth(5);

25 x:=250; y:=197;

26 x2:=x-40-random(10);

27 y2:=y-150-random(10);

28 x3:=x++40+random(10);

29 y3:=y-150-random(10);

30 line(x,y,x2,y2);

31 line(x,y,x3,y3);

32 circle(x2,y2,10);

33 circle(x3,y3,10);

34 sleep(2);

35 redraw;

36 until keypressed;

37 end.