Заполнить массив А первыми Н натуральными числами, начиная сХ(ввести Х с клавиатуры)
Заполнить массив А первыми Н натуральными числами, начиная сХ(ввести Х с клавиатуры)
Гость
Ответ(ы) на вопрос:
Гость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.
На всякий случай написала вывод массива
Не нашли ответ?
Похожие вопросы