Question

1)
Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведен на алгоритмическом языке:

алг
нач
цел s, k
s := 0
нц для k от 6 до 12
s := s + 5
кц
вывод s
кон

2)
В таблице 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
кон

Answer 1

1)
var  s,k:integer;
begin
s:=0;
begin for k:= 6 to 12 do 
s:=s+5;
end;
write(s);
end.

Ответ
35

2) 
var Dat: array [1..7] of integer;
k, m, day: 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];
begin for k:=2 to  7 do
if Dat[k]<m then 
begin m:=Dat[k]; 
day:=k;
end;
end;
write(day);
end.

Ответ
5