<span>относят учебные видеофильмы и звукозаписи, для воспроизведения которых достаточно бытового магнитофона или CD-плеера.</span>
Нужно добавить всего-то 1 строку:
...
if pos(copy(stroka,i,1),' ,.?!-:;') <> 0 then
{если i-ый символ из строки stroka содержится в строке ' ,.?!-:;', то}
begin
slovo := copy(stroka,1,i-1); // копируем слово
If (slovo[1]='л') or (slovo[Length(slovo)]='ь') then Writeln(Slovo);
delete(stroka,1,i-1); // Удаляем его из текста
while (length(stroka)>0)and (not(stroka[1] in b)) do
delete(stroka,1,1); // удаляем все разделители до следующего слова
i := 1; // снова рассматриваем слово с первого символа
end
....
Многократное размещение однотипной информации: повторяющейся фразы, символов ,букв, слов, одинаковых графических файлов или просто коротких сообщений, на веб-форумах, в чатах, блогах называется:ФЛУД - это то, когда на форумах, в комментариях к фотографиям или статусам, в личных сообщениях люди пишут не по теме (т.е. отходят от неё) и которые в данных случаях не имеет ни смысла, ни логики!Флудеры, они как мусорщики, засоряют страницы и форумы однотипной и не имеющей смысла информацией!Как уже выше сказано, просто копируют текст и вставляют его куда попало!<span>По-другому, проще, можно сказать, что флуд - это большой по объему набор слов, в котором отсутствует какая-либо полезная информация. Также к нему относится несколько сообщений, отправленных одновременно от одного пользователя.
</span>
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
