ГИА. Информатика. Массивы

В таблице 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]:=7;

Dat[5]:=6;

Dat[6]:=7;

Dat[7]:=8;

Day:=1;

m:=Dat[1];

for k:=2 to 7 do

if (Dat[k]<m) then

begin

m:=Dat[k];

day:=k;

end;

write(m);

end.

var k, count: integer;

Dat: array[1..7] of integer;

Begin

Dat[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 do

if (Dat[k]>=0) then

begin

count:=count+1;

end;

write(count);

end.

Смотрите: