Заполнить массив А первыми Н натуральными числами, начиная сХ(ввести Х с клавиатуры)
Var i,n,x:integer;
a:array[1..100]of integer;
begin
redln(n,x);
for i:= 1 to n do
a[i]:=x+i-1;
//дальнейшие операции с массивом
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
