PROGRAM example1; const n=8; var a : ARRAY [1.. n] of NTEGER; i, j,k,s : INTEGER; BEGIN randomize; {заполняем массив случайными числами} FOR i := 1 TO n DO begin a[i] := 1+random(20) ; WRITE( a[i],' ' ); end; WRITELN; {пустой оператор вывода для разд
{}