Дан массив из 10 элементов. Необходимо заполнить его первыми 10 членами арифметической прогрессии с заданными первым членом прогрессии aa и её разностью p.

Формат входных данных

С клавиатуры вводятся целые числа aa и pp (-100≤a, p≤100-100≤a, p≤100).

Формат выходных данных

Требуется вывести содержимое массива после заполнения согласно условию задачи. Элементы должны разделяться пробелами.

Question

Информатика

Порфир

19 февраля, 12:29

Дан массив из 10 элементов. Необходимо заполнить его первыми 10 членами арифметической прогрессии с заданными первым членом прогрессии aa и её разностью p.

Формат входных данных

С клавиатуры вводятся целые числа aa и pp (-100≤a, p≤100-100≤a, p≤100).

Формат выходных данных

Требуется вывести содержимое массива после заполнения согласно условию задачи. Элементы должны разделяться пробелами.

+3

Ответы (1)

Знаете ответ?

Аполлинарий · Answer 1

Const n=10;

var ar:array[1 ... n] of integer;

a, p, i:integer;

begin

write ('a = ') ;

readln (a) ;

write ('p = ') ;

readln (p) ;

ar[1]:=a;

for i:=2 to n do ar[i]:=ar[i-1]+p;

for i:=1 to n do write (ar[i],' ') ;

end.

Пример:

a = 2

p = 5

2 7 12 17 22 27 32 37 42 47