Program NoName;
Var i,n,sum: integer;
a:array[1..9999] of integer;
Begin
sum:=0;
Write ("Количество элементов массива = ");
Read (n);
For i:=1 to n do
Begin
Writeln(a[i]);
End;
Writeln ;
For i:=1 to n do
Begin
If a[i] < 20 then
a[i] := a[i] * 3;
sum:=sum + a[i];
Writeln(a[i]);
End;
Write (sum);
End.
100 div 5 = 20
__________________________________________
F= ¬(A&B + ¬C) или F = НЕ(A И B ИЛИ НЕ C)
Создаешь массив со своим предложением,
если правильно понял задачу то можно просто вывести последние слово:
for от начала слово и до его конца и выведутся символы последнего слово
Принцып я обьяснил, осталось тебе только написать код.