2. определите, какое из указанных имен файлов не удовлетворяет маске ? *no.t? * 1. poyno.t 2. poguno.tanx 3. 2no.t9 4. melono.theme

Четвёртый вариант не подходит, так как относится к другому разряду файлов

ответ: 1

Так как ? - это один обязательный символ. За * могут находиться любые символы в любом количестве, могут и вовсе отсутствовать. Среди всех этих вариантов не подходит только первое, т.к. после буквы t не стоит символ за ?.

1)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[ i]:8); writeln;

for i:=n downto 1 do write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

2)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[ i]); readln;

for i:=1 to n do if a[i]<0 then write(i:2,a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

3)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do if not odd(i) then write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

4)

var i,n,s:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[i]:8); writeln;

s:=0; for i:=1 to n do s:=s+a[i]; writeln('Sum=',s); ;

writeln('Для выхода нажмите Enter'); readln

end.

Объяснение:

var

 a:array of integer;

 i,n,count:integer;

function Ss(m:integer):boolean;

 var

   sum:integer;

 begin

   sum:=0;

   repeat

     sum:=sum+ m mod 10;

     m:=m div 10;

   until m=0;

   if sum mod 2 = 0 then

     Ss:=true  

       else Ss:=false;

 end;

 

begin

 write('Размерность массива: '); readln(n);

 setlength(a,n); dec(n);

 count:=0;

 for i:=0 to n do

   begin

     a[i]:=random(401)-200;

     if Ss(a[i]) then

       inc(count);      

     write(a[i]:5);

   end;

 writeln;

 writeln('Кол-во: ',count);

end.