Помогите срочно!! Заполнить массив A первыми N натуральными числами, ничиная с X (ввести X с клавиатуры)
Помогите срочно!!
Заполнить массив A первыми N натуральными числами, ничиная с X (ввести X с клавиатуры)
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a:array[0..100] of integer;
i,x, n: integer;
begin
write('Введите значения x,n : ');
readln(x,n);
for i:=0 to n do begin
a[i]:=x+i; write(a[i],' ');
end;
end.
Тестовое решение:
Введите значения x, n : 5 10
5 6 7 8 9 10 11 12 13 14 15
Гость// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var n:=ReadInteger('n=');
var x:=ReadInteger('x=');
var a:=x.Step.Take(n).ToArray; a.Println
end.
Тестовое решение:
n= 15
x= 27
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
Не нашли ответ?
Похожие вопросы