2. Напишите программу, которая выводит в порядке убывания все составные (не трёхзначные числа. 3.Пользователь программы вводит два целых положительных числа «а» и «b», задающих диапазон целых чисел [а;b].Найдите и выведите максимальное количество делителей у чисел из заданного диапазона. 4. Напишите программу, выводящую значения функции y = 2х – 5 на промежутке (-29;35] с шагом 0, 4. 5.Напишите программу, выводящую все делители произвольного целого положительного числа В pascal

Var
  a:array[1..40] of integer;
  i,n,k3,k,s,a3:integer;
begin
  Write('n='); Read(n);
  for i:=1 to n do Read(a[i]);
  k3:=0; {a}
  s:=0; k:=0; {b}
  a3:=-1000; {c}
  for i:=1 to n do begin
    if a[i] mod 10=3 then Inc(k); {a}
    if (a[i]>0) and (a[i] mod a[1]=0) then begin {b}
      s:=s+a[i]; Inc(k)
      end;
    if (a[i]<0) and (a[i]>a3) and (a[i] mod 3=0) then a3:=a[i]; {c}
    end;
  Writeln('Кол-во чисел. оканчивающихся на 3: ',k3); {a}
  Writeln('Среднее арифметическое по условию: ',s/k:0:3); {b}
  if a3<>1000 then Writeln('Наибольший отрицательный, кратный 3: ',a3) {c}
  else Writeln('Нет отрицательных элементов, кратных 3')
end.

Для решения конкретного пункта выбирать только операторы, помеченные этим пунктом, Например, {a} для а)

Задача 1

const N=30;
var a: array [1..N] of integer;
i,j,s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if (a[i]>99)and(a[i]<1000) then
if (a[i] mod 2)<>0 then
begin
s:=s+a[i];
j:=j+1;
end;
if j=0 then writeln('в массиве нет нечётных трехзначных чисел')
else writeln('среднее арифметическое нечётных трехзначных чисел: ',s/j);
end.

задача 2

const N=40;
var a: array [1..N] of integer;
i,x,y: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
x:=abs(a[1]);
for i:=1 to N do
if (a[i]>0)and((a[i] mod x)=0) then
begin
y:=y+1;
s:=s+a[i];
end;
if y=0 then writeln('в массиве нет нечётных трехзначных чисел')
else writeln('среднее арифметическое положительных чисел кратных первому элементу: ',s/y);
end.

задача 3

const N=30;
var a: array [1..N] of integer;
i,s,m: integer;
begin
for i:=1 to N do readln(a[i]);
m:=a[1];
for i:=2 to N do
if a[i]>m then m:=a[i];
for i:=1 to N do
if a[i]=m then s:=s+1;
if s=1 then writeln('в массиве только один максимальный элемент')
else writeln('число элементов, равных максимальному: ',s-1);
end.