- В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] - данные за понедельник, Dat[2] - данные за вторник и т.д.). Определите, что будет напечатано в результате следующего алгоритма:
1234567891011121314151617181920var k, m, day: integer;Dat: array[1..7] of integer;BeginDat[1]:=7;Dat[2]:=9;Dat[3]:=10;Dat[4]:=7;Dat[5]:=6;Dat[6]:=7;Dat[7]:=8;Day:=1;m:=Dat[1];for k:=2 to 7 doif (Dat[k]<m) thenbeginm:=Dat[k];day:=k;end;write(m);end. - В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] - данные за понедельник, Dat[2] - данные за вторник и т.д.). Определите, что будет напечатано в результате следующего алгоритма:
12345678910111213141516171819var k, count: integer;Dat: array[1..7] of integer;BeginDat[1]:=3;Dat[2]:=-1;Dat[3]:=4;Dat[4]:=3;Dat[5]:=-2;Dat[6]:=2;Dat[7]:=1;count:=0;m:=Dat[1];for k:=1 to 7 doif (Dat[k]>=0) thenbegincount:=count+1;end;write(count);end.