Для групповых операций с файлами используются маски имён файлов. Маска пред-ставляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых также могут встречаться следующие символы: Символ «?» (во знак) означает ровно один произвольный символ. Символ «*» (звёздоч-ка) означает любую последовательность символов произвольной длины, в том числе «*» может задавать и пустую последовательность. Определите, какое из указанных имён файлов удовлетворяет маске: *ex??.tx* 1. exex.tex 2. exex.txt 3. my_ex.tex 4. my_ex.txt

2. exex.txt

Объяснение:

Маска: *ex??.tx*

Расширение файла (после точки) должно иметь вид tx* (буквы tx и после них любая последовательность символов). Файлы 1. exex.tex и 3. my_ex.tex не подходят под это условие, т.к. у них в расширении между буквами tx стоит буква e.

Имя файла (до точки) должно иметь вид *ex?? (любая последовательность символов, буквы ex и после них два любых символа). Файл my_ex.txt не подходит под это условие, т.к. после букв ex стразу стоит точка и начинается расширение, т.е. нет указанных в маске двух любых символов.

Файл 2. exex.txt подходит под все условия (перед первыми буквами ex ничего нет, т.е. это пустая последовательность символов; после первых букв ex идут две буквы ex, т.е. это два любых символа; расширение имеет вид txt, т.е. это буквы tx и буква t - любая последовательность символов)

Одномерный массив пользователь вводит размерность массива найти в массиве минимум максимум и поменять их местами

Паскаль

Целочисленный массив

По одному вхождению максимума и минимума

Если все, то пишите!

var
n,imax,imin,i,r:integer;
a:array[1..100] of integer;
begin
write('n= ');
readln(n);
for i:=1 to n do
read(a[i]);
writeln('Table:');
imax:=1;
imin:=1;
for i:=1 to n do
begin
write(a[i]:8);
if a[imax]<a[i] then imax:=i;
if a[imin]>a[i] then imin:=i
end;
r:=a[imax];
a[imax]:=a[imin];
a[imin]:=r;
writeln;
writeln('New table:');
for i:=1 to n do
write(a[i]:8);
end.

// Составить программу, которая выводит на экран таблицу деления числа 11 на целые от 1 до 10(с 2мя знаками после запятой).  

var x: real;
     i: word;
begin
   writeln('Таблица деления числа 11 на целые от 1 до 10(с 2мя знаками после запятой)');
   for i:=1 to 10 do   begin
        x:=11/(i);
        writeln('11/',i,' =',x:0:2);
    end;
end.    

// Со<span class="_wysihtml5-temp-placeholder"></span>ставить таблицу значений функции y=x^3+2 на отрезке [-5;5] с шагом 1.
var x,y: real;
         i: shortint;  
begin
   writeln('Таблица значений функции y=x^3+2 на отрезке [-5;5] с шагом 1.');   
   for i:=(-5) to 5 do
      begin
         y:=i*i*i+2;
         writeln('При х=',i,' y=',y);
    end; 
end.