Дан массив C, состоящий из N частей. Элементы массива - произвольные

USES Crt;
nbsp;CONST nbsp;nbsp;N=20;
nbsp;VAR
nbsp;nbsp;nbsp;C:ARRAY[0..N] OF INTEGER;
nbsp;nbsp;nbsp;I: BYTE;
nbsp;BEGIN
nbsp;nbsp;nbsp;ClrScr; nbsp;nbsp;Randomize;
nbsp;nbsp;nbsp;WriteLn( Значения частей массива);
nbsp;nbsp;nbsp;FOR I:=1 TO N DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;C[I]:=Random(20); nbsp;Write(C[I]:3);
nbsp;nbsp;nbsp;End; nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;WriteLn( Значения частей массива в обратном порядке);
nbsp;nbsp;nbsp;FOR I:=N DOWNTO 1 DO
nbsp;nbsp;nbsp;nbsp;nbsp;Write(C[I]:3);
nbsp;END.