Срочно!Нужно полностью составить программу,от начала и до конца:
"Сформировать по формуле I/2 одномерный массив и вывести его на экран "

Если взять массив от 1 до 20 то программа примерно выглядит так:Program primer;VarA: array [1..20] of real;i:integer;BeginFor i:=1 to 20 doBegina[i]:=i/2;Write(a[i],'|');End;End.