Цитата:
Сообщение от Светк
Дано целое число N (N>1), а также первый член A и разность D
арифметической прогрессии. Сформировать и вывести массив разме-
ра N, содержащий N первых членов данной прогрессии: A, A+D,
A+2•D, A+3•D,…. Созданный массив упорядочить в порядке убыва-
ния.
|
Боже, ну и скучища! Да будете вы когда-нибудь учиться, лоботрясы?
Ладно...
Код:
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.