Question

Из элементов массива А, состоящего из 25 элементов, сформировать массив D той же размерности по правилу: первые 10 элементов находятся по формуле Di=Ai+i, остальные - по формуле Di=Ai-i. (паскаль)

Answer 1

program raf105;

var

 a,d: array[1..25] of integer;

 i: integer;

begin

write('Массив A: ');

for i:=1 to 25 do

begin

 a[i]:= random(35,60);

 write(a[i],' ');

end;

writeln;

write('Массив D: ');

for i:=1 to 25 do

begin

 if i<=10

   then d[i]:=a[i]+i;

 if i>10

   then d[i]:=a[i]-i;

 write(d[i],' ');

end;

end.

PascalABC 3.4.2