В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т. д.). Определите число, которое будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках. Алгоритмический язык Бейсик Паскаль
алг
нач
целтаб Dat[1:7]
цел k, m, day
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]
нц для k от 2 до 7
если Dat[k] < m то
m:=Dat[k]; day:=k
все
кц
вывод day
кон DIM Dat(7) AS INTEGER
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
IF Dat(k) < m THEN
m=Dat(k)
day=k
END IF
NEXT k
PRINT day
END 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.
