Запишите маску, которая позволит выделить все файлы с расширением bmp, имена которых начинаются на букву t.

Должно быть так: t*.bmp

Uses crt; var  k, i, a, b, c: byte; begin    clrscr;     randomize;     for i : = 1 to 10 do  begin    a : = random(1, 10);     b : = random(1, 10);     write(a, ' * ', b, ' = ');     read(c);     if a * b = c then inc(k);   end;   case k of    0..3: writeln(k, '0% неудовлетворительно');     4..7: writeln(k, '0% удовлетворительно');     8..9: writeln(k, '0% хорошо');     10: writeln(k, '0% отлично');   end; end.

1. путь решения поскольку среднее всех введенных чисел нельзя найти, пока не будет закончен ввод этих чисел, а затем каждое число нужно будет сравнивать с этим средним, введенные числа придется где-то хранить. например, в массиве длиной 100 (в условии сказано, что количество чисел "до 100"). считаем, что описан массив a[1..100] и в нем находятся n≤100 целых чисел (можно и нецелых, но раз ничего не сказано в условии, мы вправе решить это сами). тогда среднее определится по формуле: а сумму мы умеем считать, накапливая значение в цикле со счетчиком, проход по всем элементам массива. искомое количество чисел, меньших среднего - это тоже сумма, найти которую позволит еще один цикл, но в нем уже будет анализ условия. 2. программа на языке pascal const   nn=100; var   i,n,k,s: integer;   m: real;   a: array[1..nn] of integer; begin   write('количество чисел равно '); read(n);   writeln('введите числа: ');   s: =0;   for i: =1 to n do begin read(a[i]); s: =s+a[i] end;   m: =s/n;   k: =0;   for i: =1 to n do       if a[i]< m then inc(k);   writeln('количество чисел, превышающих среднее значение, равно ',k) end. 3. пример работы программы количество чисел равно 10 введите числа: 6 -4 11 -7 5 7 0 3 5 -2 количество чисел, превышающих среднее значение, равно 4