Составить программу заполнения одномерного массива, так чтобы его i-ый элемент был равен...

Question

Составить программу заполнения одномерного массива, так чтобы его i-ый элемент был равен a[i]=i*i+10 Паскаль

Comments

А сколько элементов в массиве ?

---

Ничего больше не сказано...

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrGen(ReadInteger('n='),i->i*i+10); a.Println
end.

Пример
n= 13
10 11 14 19 26 35 46 59 74 91 110 131 154

Answer 2

Program zap;
var a:array [1..10000] of integer; i,n:integer;
begin 
Writeln('Введите количество элементов '); 
Readln(n); 
for i:=1 to N do 
  begin 
   a[i]:=i*i+10;
   Writeln(a[i]) 
  end;
end.