Соотнесите типы и описания файлов. 1) .wmv а) резервная копия файла 2) .bmp b) исполняемый файл 3) .rtf c) файл содержит графическую информацию 4) .bak d) файл содержит видеоизображение 5) .exe e) файл содержит текстовую информацию

1- d 2 - c 3 - e 4 - a 5 - b

//pascalabc.net версия 3.3.1590 от 03.12.2017 //если программа не запускается, то обновите версию uses system; begin       var a : = arrrandominteger(100, -100, 100);       println(a);       var max : = a.max();       a[a.indexmax()] : = 0;       max : = max * a.max();             var min : = a.min();       if (min < 0) then begin               a[a.indexmin()] : = 0;               min : = min * a.max();       end;             writeln(math.max(max, min)); end.

1. var a,b,h: integer; begin readln(a,b); if a< b then h: =1 else h: =-1;   while a< > b do   begin     write(a,' ');     a: =a+h;   end; writeln(a); end. пример: 7 12 7 8 9 10 11 12 2. var a,b: integer; begin readln(a,b); if a< b then   while a< =b do   begin     write(a,' ');     a: =a+1;   end else   while a> =b do   begin   write(a,' ');   a: =a-1;   end; end. пример: 12 7 12 11 10 9 8 7