Сформировать и вывести массив

[Светк]

Сформировать и вывести массив

Дано целое число N (N>1), а также первый член A и разность D
арифметической прогрессии. Сформировать и вывести массив разме-
ра N, содержащий N первых членов данной прогрессии: A, A+D,
A+2•D, A+3•D,…. Созданный массив упорядочить в порядке убыва-
ния.

 

[Vladimir_S]

Дано целое число N (N>1), а также первый член A и разность D
арифметической прогрессии. Сформировать и вывести массив разме-
ра N, содержащий N первых членов данной прогрессии: A, A+D,
A+2•D, A+3•D,…. Созданный массив упорядочить в порядке убыва-
ния.

Боже, ну и скучища! Да будете вы когда-нибудь учиться, лоботрясы? :tehnari_ru_093: Ладно...

Const
 Nmax=100;
Var
 A,B:Array[1..Nmax] of Real;
 D:Real;
 i,N:Byte;
Begin
 Write('N= ');
 Readln(N);
 Write('A= ');
 Readln(A[1]);
 Repeat
  Write('D= ');
  Readln(D);
  If D=0 then writeln('D must be <>0!');
 Until D<>0;
 Writeln('Initial array:');
 Write(A[1]:8:2);
 For i:=2 to N do
  begin
   A[i]:=A[i-1]+D;
   Write(A[i]:8:2);
  end;
 Writeln;
 Writeln('Ordered array:');
 If D>0 then
  for i:=1 to N do
   B[i]:=A[N-i+1]
  else
  B:=A;
 For i:=1 to N do
  Write(B[i]:8:2);
 Readln
End.