Решаем задачи Абрамян на Паскале. Array3

Array3. Дано целое число $$N (\gt 1)$$, а также первый член $$A$$ и разность $$D$$ арифметической прогрессии. Сформировать и вывести массив размера $$N$$, содержащий $$N$$ первых членов данной прогрессии:

$$A, A + D, A + 2*D, A + 3*D, …$$ .

Решение:

program Array3;
var
  a:array[1..10] of integer;
  D,N,i:Integer;

begin
  Write('N:');
  Readln(N);
  Write('A_1:');
  Readln(a[1]);
  Write('D:');
  Readln(D);
  for i:=2 to N do a[i]:=a[1]+(i-1)*D;

  for i:=1 to N do writeln(i,' : ',a[i]);
end.

program Array3;

var

a:array[1..10] of integer;

D,N,i:Integer;

begin

Write('N:');

Readln(N);

Write('A_1:');

Readln(a[1]);

Write('D:');

Readln(D);

for i:=2 to N do a[i]:=a[1]+(i-1)*D;

for i:=1 to N do writeln(i,' : ',a[i]);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Комментарии 1

Bronislav

29.04.2018 в 11:41

begin var n:=10; var a:=1; var d:=2; var ar:=SeqGen(n,a,i->i+d).ToArray; ar.Println; end.

1
2
3
4
5
6
7

begin
  var n:=10;
  var a:=1;
  var d:=2;
  var ar:=SeqGen(n,a,i->i+d).ToArray;
  ar.Println;
end.

Ответить

Решаем задачи Абрамян на Паскале. Array3

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ