// Программа и скриншот ее работы в приложенияхconst cols=79;var i,j, idx:byte; elm:integer; T:array[1..cols]of char; begin writeln('Заполнение массива из ', cols ,' элементов Английским алфавитом'); for i:=1 to cols do begin //c 65 позиции начинаются заглавные латинские буквы T[i]:= ChrAnsi( random(1,26)+64 ); write(T[i]:2); end; writeln(); writeln(); writeln('Заменить все а на о и все о на а'); for i:=1 to cols do begin if (T[i]='A') then T[i]:='O' else if (T[i]='O') then T[i]:='A'; write(T[i]:2); end; end.