Var k, m, day: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 2; Dat[3] := 3; Dat[4] := 3; Dat[5] := 2; Dat[6] := 2; Dat[7] := 5; Dat[8] := 5; Dat[9] := 6; Dat[10] := 6; day:=1; m := Dat[1]; ...
Var k, m, day: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 2;
Dat[2] := 2;
Dat[3] := 3;
Dat[4] := 3;
Dat[5] := 2;
Dat[6] := 2;
Dat[7] := 5;
Dat[8] := 5;
Dat[9] := 6;
Dat[10] := 6;
day:=1; m := Dat[1];
for k := 2 to 10 do
if Dat[k] =< m then
begin
m:= Dat[k];
day := k;
end;
write(day);
End.
Ответ равен двум, если нет объясните почему?
Гость
Ответ(ы) на вопрос:
ГостьОтвет будет равен 6, да и в коде есть пару синтаксических ошибок.
Не нашли ответ?
Похожие вопросы