Размещено 6 лет назад по предмету
Информатика
от lolkek47
Var k, m, term: integer;
Dat: array(1..8] of integer;
Begin
Dat [1] := 7; Dat [2] := 7;
Dat [3] := 6; Dat (4) != 8;
Dat (5] := 4; Dat[6] := 5;
Dat [7] := 4; Dat [8] := 7;
m :- Dat(1);
term := 1;
for k:= 2 to 8 do
if Dat [k]
begin
m := Dat[k);
term := k;
end;
writeln(term);
End.
Var k, m, day: integer;