Var i,a,day :integer; Dat: array[1..7] of integer;
begin
Dat[1]:=14;
Dat[2]:=10;
Dat[3]:=0;
Dat[4]:=15;
Dat[5]:=0;
Dat[6]:=15;
Dat[7]:=10;
day:=1;
a:=Dat[1];
for i:=2 to 7 do begin
a:=Dat[i];
day:=i;
write(day);
end;
end.

я не знаю как это решать. решите .

nastyr17    2   08.03.2021 20:02    4