1) Введите с клавиатуры числа X и D и заполните массив элементами арифметической прогрессии с начальным элементом X и разностью D. Не используёте встроенные функции.
Пример:
Введите X и D:
7 2
Массив:
7 9 11 13 15
2) Введите с клавиатуры числа X и D и заполните массив элементами арифметической прогрессии с начальным элементом X и разностью D, начиная с последнего элемента. Не используёте встроенные функции.
Пример:
Введите X и D:
7 2
Массив:
15 13 11 9 7
3) Заполните массив случайными числами в интервале [2,100] и подсчитайте среднее значение всех элементов, которые представляют собой числа.
Пример:
Массив числа:
23 37
Среднее арифметическое: 30.0

по формуле n=2 в степени i

32=2 в степени i

32=2 в пятой степени следовательно 2 в пятой степени=2 в степени i

откуда i=5 бит

ответ: 1 буква алфавита несет 5 бит

карандаш — инструмент в виде стержня, изготавливаемого из пишущего материала (угля, графита, сухих красок и т. п.) применяемый для письма, рисования, черчения.

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

var n: integer;

procedure down(var n: integer); var a: array[1..20] of integer; i, j, s, p: integer; begin i : = 0; while n > 0 do begin i : = i + 1; a[i] : = n mod 10; n : = n div 10; end; p : = i; for i : = 1 to p - 1 do for j : = i + 1 to p do if a[i] < a[j] then begin s : = a[i]; a[i] : = a[j]; a[j] : = s; end; j : = 1; for i : = p downto 1 do begin s : = s + a[i] * j; j : = j * 10; end; n : = s; end;

begin readln(n); down(n); writeln(n); end.