Втаблице dat хранятся данные измерений среднесуточной температуры за неделю в градусах (dat[1] – данные за понедельник, dat[2] – за вторник и т. определите, что будет напечатано в результате выполнения следующего алгоритма var k, m, day: integer; dat: array[1..7] of integer; begin dat[1]: =7; dat[2]: =9; dat[3]: =10; dat[4]: =8; dat[5]: =6; dat[6]: =7; dat[7]: =6; day: = 1; m: =dat[1]; for k: =2 to 7 do begin if dat[k] < m then begin m: =dat [k]; day: =k end end write(day); end.

будет напечатано 5, dat[5]: =6 а 6< 7

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   if n> 10 then begin writeln('n> 10'); exit end;   var a: =readarrinteger(n);   writeln(10*'-');   var b: =a.where(k-> k.iseven or (k mod 13=;   var m: =0;   for var i: =0 to b.count-2 do       for var j: =i+1 to b.count-1 do           if (b[i]*b[j]) mod 26=0 then begin               println(b[i],b[j]); m+=1               end;   if m=0 then writeln('no') end. пример n= 6 29 38 16 39 41 7 38 39 16 39

Var     a: array[1..10] of integer;     i,j,n,k: integer; begin write('n = '); readln(n); write('введите массив a(',n,'): '); for i: = 1 to n do       read(a[i]); k: =0; for i: = 1 to n do       for j: = i+1 to n do               if (a[i]*a[j]) mod 26 = 0 then                       begin                       writeln(a[i],' ',a[j]);                       k: =1;                       end; if k=0 then writeln('no') end.