22. дан фрагмент программы, обрабатывающий массив а из 10 элементов: n : = 10; for i: =1 tо n do a[i] : = i; j : = 1; for i: =1 tо n-1 do if a[i] < a[i+1] then j : = j + 1; чему будет равно значение переменной j после выполнения этого алгоритма?

в результате выполнения первого цикла

  for i: =1 tо n do a[i] : = i

в массиве будут находится числа от 1 до 10 по возрастанию

j: =1

затем 9 раз сравнивается предыдущий элемент с последующим и если последующий больше предыдущего то j увеличивается на 1

так как в массиве каждый последующий элемент больше предыдущего то j увеличится на 9

значит j станет равно 10

Program zvonpobeditel; var i,n,k,i_1,i_2,d_1,d_2: integer; c: char; s,s_1,s_2: string; begin  i_1: =0;   i_2: =0;   d_1: =1;   d_2: =1;   readln(n);   for i: =1 to n do  begin  c: ='a';   s: ='';   while c< > ' ' do  begin    read(c);     s: =s+c;   end;   read(c);   while c< > ' ' do  begin    s: =s+c;     read(c);   end;   read(c);   while c< > ' ' do  begin    read(c);   end;   readln(k);   if (k=i_1) and (i< > 1) then d_1: =d_1+1;   if k> i_1 then    begin    i_2: =i_1;     i_1: =k;     s_2: =s_1;     s_1: =s;     d_2: =d_1;     d_1: =1;   end;   if (k=i_2) and (i< > 1) then d_2: =d_2+1;   if (k> i_2) and (k< i_1) then    begin      i_2: =k;     s_2: =s;     d_2: =1;   end;   end;   if (i_1< =200) and (d_1=1) then writeln(s_1);   if (i_1< =200) and (d_1< > 1)then writeln(d_1);   if (i_1> 200) and (d_2=1) then writeln(s_2);   if (i_1> 200) and (d_2< > 1) then writeln (d_2); end. это сугубо мое решение за копирайтинг отвешу люлей. и  к тому  же сдесь есть одна ошибка о которой знаю только  я, так сказать один из  частных  случаев здесь не прощитывается, по этому поломайте  голову, ха-ха-

Uses crt; var m: array[1..4,1..5]   of integer;     b: array[1..4] of integer;     min,i,j: integer; begin clrscr; for i: =1 to 4 do begin for j: =1 to 5 do begin m[i,j]: =random(35)-30; end; end; for i: =1 to 4 dobeginfor j: =1 to 5 dowrite(m[i,j]: 3,'   ' ); writeln; end;   min: =m[1,1]; for i: =1 to 4 dobeginfor j: =1 to 5 dobeginif min> m[i,j] then min: =m[i,j]; end; b[i]: =min; min: =m[i+1,1]; end; for i: =1 to 4 dowriteln(i,') ',b[i]); readkey; end.