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

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

Question

Информатика

Светуша

9 января, 02:42

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

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

+4

Ответы (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.