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