Question

с помощью генератора случайных чисел заполнить массив Английским алфавитом и заменить все а на о и все о на а

Answer 1

// Программа и скриншот ее работы в приложениях

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.

f6868223d98071e2e7388ca28d899df3.pas