Помогите решить задачи с массивами. PascalABC net.

[pix3l]

1. Даны целые числа N>2, A, B. Сформировать и вывести целочисленный массив размера N, первый элемент которого =А, второй=В, а каждый последующий равен разности предыдущих.

2. Дан массив из 14 случайных чисел от -50 до 20. Вывести на экран значения элементов массива. Найти максимальный элемент массива. Определить его номер. Кратен ли этот элемент 3? Вывести все ответы на экран

3. Дан массив из 12 чисел. Вывести на экран первоначальные значения элементов массива. Отсортировать значения элементов массива по возрастанию методом "пузырька". Вывести на экран новые значения элементов массива.

[Вадим Мошев]

Чем помочь? У вас какие-то конкретные вопросы? Тогда покажите код, наработки, какие ошибки выдаются вам.

[newerow1989]

var i,n,a,b:integer;
    p:array of integer;
begin
   Write('N = '); Readln(n);
   Write('A = '); Readln(a);
   Write('B = '); Readln(b);
   SetLength(p,n);
   p[0]:=a;
   p[1]:=b;
   For i:=2 to n-1 do
      p[i]:=p[i-2]-p[i-1];
   For i:=0 to n-1 do
      Write(p[i]:2,'  ');
   Writeln;
   Readln;
end.

var i,im:integer;
    p:array[1..14] of integer;
begin
   Randomize;
   For i:=1 to 14 do
   begin
      p[i]:=-50+Random(71);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   im:=1;
   For i:=2 to 14 do
      If p[im]<p[i] then
         im:=i;
   Writeln('p[',im,'] = ',p[im]);
   If p[im] mod 3=0 then
      Writeln('mod 3') else
      Writeln('no mod 3');
   Readln;
end.

var i,z:integer;
    d:boolean;
    p:array[1..12] of integer;
begin
   Randomize;
   For i:=1 to 12 do
   begin
      p[i]:=Random(100);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   Repeat
      d:=true;
      For i:=1 to 11 do
         If p[i]>p[i+1] then
         begin
            d:=false;
            z:=p[i];
            p[i]:=p[i+1];
            p[i+1]:=z;
         end;
   Until d;
   For i:=1 to 12 do
      Write(p[i]:2,'  ');
   Readln;
end.

[Serge_Bliznykov]

newerow1989, это Pascal ABC.NET,
поэтому, вместо:

Сообщение от newerow1989

For i:=0 to n-1 do
      Write(p[i]:2,'  ');
   Writeln;

можно написать:

   p.Print;

[Plague]

Сообщение от Serge_Bliznykov

это Pascal ABC.NET

Тогда тут вообще все не верно

Задача №1 например так:

begin
  var a:=ArrGen(ReadInteger('N='),ReadInteger('A='),ReadInteger('B='),(a,b)->b-a);
  a.Println;
end.

Задача № 2 например так:

begin
  var p := ArrRandomInteger(14, -50, 20);
  p.Println;
  var max := p.Max;
  Writeln('Максимумальный элемент = ', max);
  Writeln('Индекс максимального элемента = ', p.IndexMax);
  Writeln('Mаксимальный элемент ', max mod 3 = 0 ? 'кратен 3' : 'не кратен 3');
end.