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

Question

Информатика

Леонтина

12 декабря, 14:46

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

+5

Ответы (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.

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