Помогите решить в Паскале

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

Question

Информатика

Арсентий

24 марта, 11:55

Помогите решить в Паскале

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

+1

Ответы (1)

Знаете ответ на вопрос?

Всеволодыч · Answer 1

Const

n = 30;

var

i: integer;

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

begin

for i : = 1 to n do

begin

d[i] : = random (100) ;

if i < = 10 then

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

else

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

write (d[i]:4, ' ') ;

end;

writeln () ;

for i : = 1 to n do

write (a[i]:4, ' ') ;

end.