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

Question

Информатика

Дмитрий

14 ноября, 06:25

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

+1

Ответы (1)

Знаете ответ на вопрос?

Трифена · 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.

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