Что тут не так?Uses crt;Const N=20;Var a:array [1..N] of integer; i:integer;Begin clrscr; randomize; for i:=1 to N do a:=random(100); Redln(a); Writeln('Элементы масива:',a);End.

Надо в цикле писать a[i], а не а Да и ниже тоже использовать а[i] и цикл uses   crt; const   N = 20; var   a: array [1..N] of integer; i: integer; begin   clrscr;   randomize;   for i := 1 to N do a[i] := random(100);   Write('Элементы масива: ');   for i := 1 to N do Write(a[i]:4); end.

Во-первых, добавить предпоследнюю строчку readkey; Во-вторых,(Redln пишется Readln) Readkey в программе лишнее, так как переменная a[i]   определяется случайным образом В-третьих, переменную а в местах после randomize заменить на a[i] Далее, оператор цикла надо сделать полным,иначе мы увидим только одно число из 20  Для этого надо добавить после оператора do слово begin и третью строку снизу end;  перед предпоследней добавленной readkey;