Только ответ!
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] > m then
begin
m := Pos[k];
day := k end;
write(day);
end.
Ответы
Ответ дал:
0
1) ОТВЕТ ВЫВЕДЕТ :
day = 3
day = 3
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад