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