Что тут не так?

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;