Question

PascalABC 1. Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, … . 2. Дано целое число N (> 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии:A,A + D,A + 2·D,A + 3·D, … . 3. Дано целое число N (> 2). Сформировать и вывести целочисленный массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи F(K): F(1) = 1, F(2) = 1, F(K) = F(K−2) + F(K−1), K = 3, 4, … 4. Даны целые числа N (> 2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих 5. Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем — все нечетные числа в порядке убывания их индексов.

Answer 1

1. Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, …. program array1;   var a: array[1..10] of integer; N, i: integer;   begin write('Введите N: '); readln(N); a[1] := 1; for i := 2 to N do a[i] := a[i - 1] + 2; for i := 1 to N do write(a[i],' ') end.

2. Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8, 16, …. program array2;   var a: array[1..10] of integer; N, i: integer;   begin write('Введите N: '); readln(N); a[1] := 2; for i := 2 to N do a[i] := a[i - 1] * 2; for i := 1 to N do write(a[i],' ') end.

3. Дано целое число N (> 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A + D, A + 2·D, A + 3·D, …. program array3;   var arr: array[1..10] of integer; N, A, D, i: integer;   begin write('Введите N: '); readln(N); write('Введите A, D: '); readln(A, D); arr[1] := A; for i := 2 to N do arr[i] := arr[i - 1] + D; for i := 1 to N do write(arr[i],' ') end.

4°. Дано целое число N (> 1), а также первый член A и знаменатель D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A·D, A·D2, A·D3, …. program array4;   var arr: array[1..10] of integer; N, A, D, i: integer;   begin write('Введите N: '); readln(N); write('Введите A, D: '); readln(A, D); arr[1] := A; for i := 2 to N do arr[i] := arr[i - 1] * D; for i := 1 to N do write(arr[i],' ') end.

5. Дано целое число N (> 2). Сформировать и вывести целочисленный массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи FK: F1 = 1, F2 = 1, FK = FK−2 + FK−1, K = 3, 4, …. program array5;   var arr: array[1..10] of integer; N, i: integer;   begin write('Введите N: '); readln(N); arr[1] := 1; arr[2] := 1; for i := 3 to N do arr[i] := arr[i - 1] + arr[i - 2]; for i := 1 to N do write(arr[i], ' ') end.

6. Даны целые числа N (> 2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих. program array6;   var arr: array[1..10] of integer; N, A, B, i: integer;   begin write('Введите N: '); readln(N); write('Введите A, B: '); readln(A, B); arr[1] := A; arr[2] := B; arr[3] := A + B; for i := 4 to N do arr[i] := 2 * arr[i - 1]; for i := 1 to N do write(arr[i], ' ') end.

Answer 2

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

1. Формирование и вывод массива первых N положительных нечетных чисел:

pascalCopy code
program Task1;

var
  N, i: Integer;
  oddNumbers: array of Integer;

begin
  Write('Введите целое число N (> 0): ');
  ReadLn(N);

  SetLength(oddNumbers, N);

  for i := 0 to N - 1 do
    oddNumbers[i] := 2 * i + 1;

  WriteLn('Массив первых ', N, ' нечетных чисел:');
  for i := 0 to N - 1 do
    Write(oddNumbers[i], ' ');
end.

2. Формирование и вывод массива первых N членов арифметической прогрессии:

pascalCopy code
program Task2;

var
  N, A, D, i: Integer;
  progression: array of Integer;

begin
  Write('Введите целое число N (> 1): ');
  ReadLn(N);

  Write('Введите первый член A: ');
  ReadLn(A);

  Write('Введите разность D: ');
  ReadLn(D);

  SetLength(progression, N);

  for i := 0 to N - 1 do
    progression[i] := A + i * D;

  WriteLn('Массив первых ', N, ' членов арифметической прогрессии:');
  for i := 0 to N - 1 do
    Write(progression[i], ' ');
end.

3. Формирование и вывод массива первых N элементов последовательности чисел Фибоначчи:

pascalCopy code
program Task3;

var
  N, i: Integer;
  fibonacci: array of Integer;

begin
  Write('Введите целое число N (> 2): ');
  ReadLn(N);

  SetLength(fibonacci, N);
  fibonacci[0] := 1;
  fibonacci[1] := 1;

  for i := 2 to N - 1 do
    fibonacci[i] := fibonacci[i - 2] + fibonacci[i - 1];

  WriteLn('Массив первых ', N, ' чисел Фибоначчи:');
  for i := 0 to N - 1 do
    Write(fibonacci[i], ' ');
end.

4. Формирование и вывод массива размера N с определенными первыми элементами:

pascalCopy code
program Task4;

var
  N, A, B, i: Integer;
  customArray: array of Integer;

begin
  Write('Введите целое число N (> 2): ');
  ReadLn(N);

  Write('Введите первый элемент A: ');
  ReadLn(A);

  Write('Введите второй элемент B: ');
  ReadLn(B);

  SetLength(customArray, N);
  customArray[0] := A;
  customArray[1] := B;

  for i := 2 to N - 1 do
    customArray[i] := customArray[i - 1] + customArray[i - 2] + B;

  WriteLn('Сформированный массив размера ', N, ':');
  for i := 0 to N - 1 do
    Write(customArray[i], ' ');
end.

5. Вывод четных и нечетных чисел из массива:

pascalCopy code
program Task5;

var
  N, i: Integer;
  inputArray: array of Integer;

begin
  Write('Введите размер массива N: ');
  ReadLn(N);

  SetLength(inputArray, N);

  for i := 0 to N - 1 do
  begin
    Write('Введите элемент массива номер ', i, ': ');
    ReadLn(inputArray[i]);
  end;

  WriteLn('Четные числа в порядке возрастания их индексов:');
  for i := 0 to N - 1 do
  begin
    if inputArray[i] mod 2 = 0 then
      Write(inputArray[i], ' ');
  end;

  WriteLn;
  WriteLn('Нечетные числа в порядке убывания их индексов:');
  for i := N - 1 downto 0 do
  begin
    if inputArray[i] mod 2 <> 0 then
      Write(inputArray[i], ' ');
  end;
end.

Теперь вы можете скопировать каждую из этих программ в PascalABC и выполнить их, чтобы увидеть результаты.