Question

Заполните массив A первыми N натуральными числами, начиная с X (ввести X с клавиатуры) в обратном порядке (начиная с конца массива). Написать программу

Answer 1

Ответ:

program qq;

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.