Задать начальные значения элементов массива можно следующими способами: * var S: array[1..27] of string; for i := 1 to n do a[i]:=random(60); for i := 1 to n do write(a[i]); for i := 1 to n do a[i]:=sin(i)-cos(i); for i := 1 to n do readln(a[i]); for i := 1 to n do writeln(a[i]); var 11T: array[1..31] of real;