Панкратий 1 ноября 2019 в 09:09
Дан массив из 10 элементов. Необходимо заполнить его первыми 10 членами арифметической прогрессии с заданными первым членом прогрессии aa и её разностью p.
Формат входных данных
С клавиатуры вводятся целые числа aa и pp (−100≤a,p≤100−100≤a,p≤100).
Формат выходных данных
Требуется вывести содержимое массива после заполнения согласно условию задачи. Элементы должны разделяться пробелами.
Дан массив из 10 элементов. Необходимо заполнить его первыми 10 членами арифметической прогрессии с заданными первым членом прогрессии aa и её разностью p.
Формат входных данных
С клавиатуры вводятся целые числа aa и pp (−100≤a,p≤100−100≤a,p≤100).
Формат выходных данных
Требуется вывести содержимое массива после заполнения согласно условию задачи. Элементы должны разделяться пробелами.
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
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
Компьютеры и вычисления
287
18
Для комментирования необходимо зарегистрироваться на сайте