Объясните построчно эту программу

01.01.2001

объясните построчно эту программу .
Var s,sl:string;
A:array[1..30] of string;//массив строк, для хранения слов
n,i,j:byte;
Begin
write('Введите строку: ');readln(s);
s:=s+' ';n:=0;
While Pos(' ',s)>0 do
Begin
if Copy(s,1,Pos(' ',s)-1)<>'' then
Begin
inc(n);
A[n]:=Copy(s,1,Pos(' ',s)-1);
End;
Delete(s,1,Pos(' ',s));
End;
For i:=n downto 2 do
For j:=2 to i do
if A[j]+' ';
writeln('Отсортированная строка = ',s);
readln;
End.

  • С клавиатуры вводится строка, после чего в цикле слова в строке сортируются, в качестве символа разделителя выступает пробел.
  • 1) объявили переменные
    2) объявили массив на 30 элементов
    3) объявили переменные
    4) начало программы
    5) запрос ввода с клавиатуры массива
    6) счетчик
    7) цикл
    ....
    ....
    конец

    надоело в 51 год сидеть и опЫсЫвать каждый оператор

    учи сам!! !

  • это какой язык программирования?

Вас заинтересует