1) *mer?.doc - отбирает файлы с расширением .doc и именем (я буду называть именем всё без расширения), оканчивающимся на mer и еще какую-то букву. Будет отобрано только файл 2. 2) ?*mer?.doc - тут по сравнению с предыдущим добавляется условие, что перед mer должно быть что-то еще. Если в случае был 1 файл, то и в этом не больше одного. 3) *mer*?.doc - файлы с именем, содержащим mer, но не оканчивающимся на него и расширением .doc. Отберутся файлы 2, 3, 5 - три файла. 4) *?mer*?.doc - тут mer должно еще и не быть в начале, по сравнению с предыдущим. Будут отобраны файлы 2 и 5.
Const N = 15; Var A:array[1..N] of integer; i:integer; P:real; Begin P:=1; Randomize; Write('Исходный массив:'); For i:=1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); P:=P*A[i] End; WriteLn; WriteLn('P = ',P); End.
Const N = 20; Var A:array[1..N] of integer; i:integer; P:real; Begin P:=1; Randomize; Write('Исходный массив:'); For i:=1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); P:=P*A[i] End; WriteLn; Write('Элементы, кратные пяти:'); For i:= 1 to N do if A[i] mod 5 = 0 then Write(' ',A[i]) End.
Var A:array[1..10000] of integer; i,n:integer; S:real; Begin Randomize; Write('n = ');ReadLn(n); Write('Исходный массив:'); For i:=1 to N do Begin A[i]:=random(31); Write(' ',A[i]); if i mod 2 <> 0 then S:=S+A[i] End; WriteLn; WriteLn('Sr = ',S/((n div 2)+(n mod 2))); End.
