написать программу,которая формирует массив случайных чисел С(20) и определяет наибольший элемент этого массива.

constn=20;varc:array[1..n]of integer;i,max:integer;begin    for i:=1 to n do        begin            c[i]:=random(100);             write(c[i]:4);        end;writeln;max:=c[1];for i:=2 to n do    if c[i]>max then       max:=c[i];writeln(max);end.