Поменять местами слово, начинающееся на 'a', со словом, оканчивающимся на 'я' - Turbo Pascal

Формулировка задачи:

задание: Поменять местами слово, начинающееся на 'a', со словом, оканчивающимся на 'я', при условии, что такие слова существуют и являются единственными Исходные данные - строка слов, разделенных пробелом, результат - массив слов, длина слова - [4-9] символов, количество слов 8 помогите плииз


textual

Код к задаче: «Поменять местами слово, начинающееся на 'a', со словом, оканчивающимся на 'я' - Turbo Pascal»

uses crt;
const n=10;
var X:array[1..n] of string[10];
    i,i1,i2,k:byte;
    s:string[10];
begin
clrscr;
writeln('Программа обработки данных строкового типа');
writeln('Введите ', n,' слов из 4-10 руских букв');
For i:=1 to n do
 begin
  write(i, '-e слово ');
  readln(x[i]);
 end;
k:=0;i1:=0;
For i:=1 to n do
if x[i][1]='а'then
 begin
  k:=k+1;
  i1:=i;
 end;
if k=0 then
 begin
  write('Слова на букву а нет, работа программы завершена!');
  readln;
  exit;
 end;
if k>1 then
 begin
  write('Слова на букву а несколько, работа программы завершена!');
  readln;
  exit;
 end;
k:=0;i2:=0;
For i:=1 to n do
if x[i][length(x[i])]='я'then
 begin
  k:=k+1;
  i2:=i;
 end;
if k=0 then
 begin
  write('Слова, оканчивающегося на букву я нет, работа программы завершена!');
  readln;
  exit;
 end;
if k>1 then
 begin
  write('Слов,оканчивающегося на букву я несколько, работа программы завершена!');
  readln;
  exit;
 end;
s:=x[i1]; x[i1]:=x[i2]; x[i2]:=s;
writeln('Обмен слов:');
For i:=1 to n do
write(' ',x[i]);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.667 из 5

Источник
Похожие ответы