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. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем — все нечетные числа в порядке убывания их индексов.

Ответ

Автор - ahip

При выполнении заданий на формирование массива можно считать, что размер результирующего массива не превосходит 10. Array1. Дано целое число 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. Array2. Дано целое число 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. Array3. Дано целое число 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. Array4°. Дано целое число 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. Array5. Дано целое число 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. Array6. Даны целые числа 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.

Источник: https://learnpascal.ru/reshenie-zadach/array/array1-6.html

Ответ

Автор - diskorddoktor

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.