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

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

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

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

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

Question

Информатика

Федор

5 октября, 18:24

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

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

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

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

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

+5

Ответы (1)

Знаете ответ на вопрос?

Катерина · Answer 1

Const

n=10;

var

m:array[1 ... n] of integer;

a, p, i:integer;

begin

Write ('Введите a, p: ') ;

Read (a, p) ;

for i:=1 to n do

begin

m[i]:=a+p * (i-1) ;

Write (m[i],' ')

end;

Writeln;

end.

Тестовое решение

Введите a, p: - 5 8

-5 3 11 19 27 35 43 51 59 67