1. В одномерном массиве произвольных чисел А (10) положительные элементы уменьшить в двое, а отрицательные элементы заменить на значения их индексов

Const

n = 10;

var

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

i: integer;

begin

Randomize;

Writeln ('Исходный массив') ;

for i : = 1 to n do

begin

a[i] : = Random (51) - 25;

Write (a[i]:4) ;

end;

Writeln;

Writeln ('Результирующий массив') ;

for i : = 1 to n do

begin

if a[i] > 0 then a[i] : = a[i] div 2 else a[i] : = i;

Write (a[i]:4) ;

end;

Writeln;

end.

Тестовое решение:

Исходный массив

5 - 19 - 24 - 21 - 4 14 - 18 - 21 2 - 14

Результирующий массив

2 2 3 4 5 7 7 8 1 10