Только ответ!var k, m, day: integer; Pos: array[1..7] of integer;begin Pos[1]

Только ответ!
var k, m, day: integer;
Pos: array[1..7] of integer;
begin
Pos[1] := 17;
Pos[2] := 19;
Pos[3] := 20;
Pos[4] := 18;
Pos[5] := 16;
Pos[6] := 20;
Pos[7] := 16;
day := 1; m := Pos[1];
for k := 2 to 7 do
if Pos[k] gt; m then
begin
m := Pos[k];
day := k end;
write(day);
end.

Данил Барольский 2019-04-24 15:36:41

Компютера нету