Напишите программу, запрашивающую ввод с клавиатуры трех строковых величин – взаимосвязанные прилагательное, существительное и глагол, а затем выводит на экран все возможные варианты сочетаний этих слов в предложении. слова вводит пользователь ! см. пример в таблице входные данные выходные данные осенние осенние листья листья осенние листья листья осенние листья осенние осенние листья листья осенние

Var a,b,c: string; begin write('введите прилагательное '); readln(a); write('введите существительное '); readln(b); write('введите глагол '); readln(c); begin writeln(a,' ',b,' ',c); writeln(a,' ',c,' ',b); writeln(b,' ',a,' ',c); writeln(b,' ',c,' ',a); writeln(c,' ',a,' ',b); writeln(c,' ',b,' ',a); end; end.

Const  s1='abcdefghijklmnopqrstuvwyz x.'; s2='* [email  protected]#%& )(`~^\/}{][: ; > < ? ,.';   var a: string; c: char; i: integer; begin  writeln ('hello! what do you want from me? it is that what i can: '); writeln('1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)'); readln (c);   if c = '2' then    begin   writeln('enter your message');     readln(a);     for i : = 1 to length(a) do    if pos(a[i],s1)> 0 then a[i]: =s2[pos(a[i],s1)]   end else // if c = '1' then   begin   writeln('enter my message');     readln(a);   for i : = 1 to length(a) do    if pos(a[i],s2)> 0 then a[i]: =s1[pos(a[i],s2)]   end; writeln(a); end. пример: hello! what do you want from me? it is that what i can: 1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)2enter your messageprivet/{& ; ! [

Поиск информации через условие для i элемента в массиве а или "линейный поиск" представим массив а таким образом:   a=[-1, 0, 5, -9, -8, -7, 9, 2, 1, 8] i=  [1,   2, 3, 4,   5,   6,   7, 8, 9, 10]  такие образом для каждого i элемента находим соответствующее значение в массиве а и проверяем на условие  if a[i]< 0a[1]=-1< 0  ? да ->   s: =s+a[i]a[2]=0< 0  ? нет a[3]=5< 0 ? нет  a[4]=-9< 0 ? да ->   s: =s+a[i]a[5]=-8< 0 ? да ->   s: =s+a[i]a[6]=-7< 0 ? да ->   s: =s+a[i]a[7]=9< 0 ? нет a[8]=2< 0 ? нет  a[9]=1< 0 ? нет  a[10]=8< 0 ? нет удовлетворяют условию  a[i]< 0 элементы -1,-9,-8 и -7   их нужно просуммировать при действия  s: =s+a[i] тогда поэтапно параметр s (сумма отрицательных элементов) будет выглядеть так  s=0 s=s+(-1)=0-1=-1 s=s+(-9)=-1-9=-10 s=s+(-8)=-10-8=-18 s=s+(-7)=-18-7=-25 в этом случае s=-25  т.е мы изменяем s прибавляя к нему каждый отрицательный элемент массива поочередно.