Пожалуйста посчитайте с информатикой срочно!!!!Только 1 задание

Я так понял, что нужно С решить

program abc;
const n=10;
var i:integer;
x:real;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
  begin
    a[i]:=random(100);
    write(a[i]:4);
    x:=(a[i]/2);
    writeln(x:8);
  end;
end.