Жеке сұрақ қою

program test;
var A:array[1..10]of integer;
i:integer;
 
begin
 
for i:=1 to 10 do
  A [i]:= random (50);
  writeln(A[i]);

for i:=1 to 10 do
  if A[i] > 0 then
    A[i]:=round(A[i]/2 )
  else
    A[i]:=i;
 
end.