Заполнить массив из N элементов последовательными натуральными числами

@CitrusGames · Регистрация: 12.04.2015

Студворк — интернет-сервис помощи студентам

Напишите программу, которая заполняет массив из N элементов последовательными натуральными числами, начиная с X , и выводит его.

Помогите найти ошибку!

Pascal

Var i,n,x:longint;
A:array[1..10000] of longint;
Begin
read(x,n);
For i:=x to x+n do
A[i]:=i;
begin
For i:=x to n+x-1 do
write(a[i], ' ');
end;
End.

@Puporev · 12.04.2015, 17:48

Pascal

Var i,n,x:integer;
    A:array[1..10000] of integer;
Begin
readln(x,n);
For i:=x to x+n-1 do
 begin
  A[i]:=i;
  write(a[i], ' ');
 end;
End.

Опции темы