Задать вопрос
29 января, 23:04

Заполнить массив А [1:10]; А [1]=1 А [2]=2. Каждый следующий элемент определяется из отношения А [n] = (A [n-1] + A[n-2]) / n. Вывести получившуюся последовательность на экран. В паскале

+5
Ответы (1)
  1. 29 января, 23:46
    0
    Const

    N = 10;

    Var

    A:array[1 ... N] of real;

    i:integer;

    Begin

    A[1]:=1;

    A[2]:=2;

    For i: = 3 to N do

    A[i]: = (A[i-1]+A[i-2]) / i;

    For i: = 1 to N do

    Write (A[i]:0:3,' ')

    End.

    1.000 2.000 1.000 0.750 0.350 0.183 0.076 0.032 0.012 0.004
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Заполнить массив А [1:10]; А [1]=1 А [2]=2. Каждый следующий элемент определяется из отношения А [n] = (A [n-1] + A[n-2]) / n. Вывести ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
Дан массив А из N целочисленных элементов. 1) Заполнить массив А целыми числами в интервале[1,100] и вывести на экран. Найти максимальный четный элемент и вывести его на экран.
Ответы (1)
1. заполните одномерный массив B1 размерностью в N (< 30 задает пользователь при выполнении программы) элементов так, чтобы каждый элемент с четным номером был равен половине своего номера, а каждый элемент с нечетным номером - количеству элементов
Ответы (1)
В pascal. 1) Заполните массив случайными числами из интервала [-50; 50), вывести на экран, посчитать сумму отрицательных элементов. 2) Ввести одномерный массив, вывести его на экран, найти максимальный элемент и его порядковый номер.
Ответы (1)
Во имя радостных мессий, помогите хоть одну задачку. Не шарю ( Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов
Ответы (1)