Какое расширение имеет имя файла, возникшего при создании ярлыка? в качестве ответа запишите три строчных латинских буквы.

Lnk вот это расширение

Например ярлыки привязанные к файлу или каталогу имеют расширение .lnk например abc.lnk

А) FOR K:= 1 TO 5.5 DO  В цикле нельзя давать нецелые числа должно быть так FOR K:= 1 TO 5 DO

Б) FOR J:= 10 TO -2 DO  Тут цикл идет не по прямой а в обратную сторону

а TO обозначает идти вперед, должно было быть так

FOR J:= 10 DOWNTO -2 DO  

В) FOR X:= 3 DOWNTO 12 DO  Тут же все наоборот цикл идет в обратную сторону а должен идти по прямой

FOR X:= 3 TO 12 DO

Г) FOR Y = 0 TO 7 DO  Тут не хватает  :   без них перед = нельзя делать цикл FOR    FOR Y:= 0 TO 7 DO

2. ЗАПОЛНИТЕ В ТАБЛИЦЕ, ЧТО БУДЕТ ВЫВЕДЕНО В РЕЗУЛЬТАТЕ

ВЫПОЛНЕНИЯ ЦИКЛА

1. FOR X:= 5 DOWNTO 2 WRITE('#');  ответ:####

2. FOR X:= 1 TO 5 WRITE('#');    ответ:#####

3. FOR X:= 0 TO 5 WRITE('#');  ответ:######

4. FOR X:= 2 TO 7 WRITE('#');   ответ:######

5. FOR X:= -5 TO 1 WRITE('#');   ответ:#######

6. FOR X:= 6 DOWNTO 5 WRITE ('#'); ответ:##

Объяснение:

1)type   ta=array[1..30,1..10] of integer; var ma: ta; i,k,j: integer; procedure searchandinc(ma: ta; var k: integer); var i,j: integer; begin; for i: =1 to 30 do  for j: =1 to 10 do  if (i+j) mod 5=0 then k: =k+ma[i,j]; end; begin; randomize; writeln('matrix: '); for i: =1 to 30 do  begin;   writeln;     for j: =1 to 10 do    begin;       ma[i,j]: =random(50);       write(ma[i,j]: 4);     end;   end; searchandinc(ma,k); writeln; writeln('result: ',k); end.2)type  ta=array[1..20,1..5] of integer;   procedure minim(ma: ta; var mini,minj: integer); var i,j,min: integer; begin; min: =2147483647; for i: =1 to 20 do   begin;   for j: =1 to 5 do     begin;     if min> ma[i,j] then       begin;         min: =ma[i,j];         mini: =i;         minj: =j;       end;     end;   end; end; var ma: ta; i,j,c,mini,minj,min: integer; begin; randomize; writeln('matrix: '); for i: =1 to 20 do   begin;   writeln;     for j: =1 to 5 do     begin;       ma[i,j]: =random(50);       write(ma[i,j]: 4);     end;   end; minim(ma,mini,minj); writeln; c: =ma[1,2]; ma[1,2]: =ma[mini,minj]; ma[mini,minj]: =c; writeln('final matrix: '); for i: =1 to 20 do   begin;   writeln;     for j: =1 to 5 do     write(ma[i,j]: 4);   end; writeln; writeln('min: ',min); end.