a[1]:=5;
a[2]:=10;
a[3]:=15;
a[4]:=20;
a[5]:=25;
Вариант №2: for i:=1 to 5 do a[i]:=i*5;
Вместо "5" можно написать "n", предварительно объявив ее в разделе переменных или констант. Тогда будет вариант №2.1: for i:=1 to n do a[i]:=i*5;
Разумеется, конечно, сперва надо описать массив. Т.е. var и т.д. никто не отменял. Что с ним делать - тут тоже в зависимости от того, что нужно сделать. var
a: array[1..5] of integer;
i: integer;
begin
for i := 1 to 5 do
a[i] := i * 5;
for i := 1 to 5 do
Write(a[i]:2, ' ');
end.