Заполнитьмассив А первымиНнатуральнымичислами, начинаясХ(ввести Х с клавиатуры)

Question

Заполнитьмассив А первымиНнатуральнымичислами, начинаясХ(ввести Х с клавиатуры)

Answer 1

Type mas=array[1..1000] of integer;
var
   a:mas;
   i,h,x,k:integer;
begin
   readln(h,x);
   k:=0;
   for i:=x to h+x do
      begin
         read(i);
         k:=k+1;
         a[k]:=i;
      end;
   for i:=1 to k do
      write(a[i], ' ');
end.

На всякий случай написала вывод массива

Comments

так что выводит?)

---

Всё работает, я бы Вам уже поставил десять спасибо за Вашу помощь..

---

да не за что:) Надо что-нибудь в этой задаче объяснить?

---

Нет, всё понятно.. )

---

точно?...)

---

Точно-точно.. Не дурак же.. Ну, не совсем ещё.. )

---

Информатика - это круто) Разбирайся в ней) А сейчас, вообще, профессия программиста востребована

---

А я вот и решил на программиста пойти.. Разбираюсь потихоньку

---

Удачи тебе :)

---

И Вам удачи.. :)